Найдено 28 результатов

whs
09.10.2015 16:08:05
Форум: Общее
Тема: SQL и CREATETABLE
Ответы: 6
Просмотры: 19504

Re: SQL и CREATETABLE

У тебя там при старте программы никакие транзакции не открываются случаем которые потом по умолчанию отроликаваются(roolback)?
Может, открываются, но вот с чего бы им откатываться. Я не вижу причин.

P.S Проверил, да действительно проблема была в транзакциях. Выставил коммит по дефолту и прописал ...
whs
09.10.2015 11:21:14
Форум: Общее
Тема: SQL и CREATETABLE
Ответы: 6
Просмотры: 19504

Re: SQL и CREATETABLE


EdtInSQL.text какую строку содержит?
Содержит самое простое CREATE TABLE NeWTable (date datetime)


query.SQL.Add('CREATE TABLE if not exists user(user_id integer NOT NULL AUTO_INCREMENT, user_name text (50), PRIMARY KEY(user_id)) DEFAULT CHARSET=utf8;)
какие компоненты используешь ...
whs
09.10.2015 09:17:25
Форум: Общее
Тема: SQL и CREATETABLE
Ответы: 6
Просмотры: 19504

SQL и CREATETABLE

Я что-то, не понял, как правильно создать таблицу например в базе MSSQL. Следующий код создает таблицу но после выхода из приложения в базе её нету.

SqlConnBuilderForm.SQLQuery2.SQL.Clear;
SqlConnBuilderForm.SQLQuery2.SQL.Text:=EdtInSQL.text;
SqlConnBuilderForm&#46 ...
whs
22.09.2015 05:54:57
Форум: Lazarus
Тема: WIN1251 в БД
Ответы: 20
Просмотры: 16220

Re: WIN1251 в БД

В лазарусе 0.9.26 при подключении к firebird 1.5 в компоненте IBConnection устанавливаю свойство CharSet = WIN1251
Для правильного отображения кириллицы в гриде (DBGrid-DataSource-TSQLQuery-IBConnection) достаточно
в свойство грида onDrawColumnCell добавить

procedure TForm1.DBGrid1DrawColumnCell ...
whs
07.03.2013 16:27:09
Форум: Lazarus
Тема: Перевод проекта Delphi на Lazarus
Ответы: 16
Просмотры: 11968

Re: Перевод проекта Delphi на Lazarus

Какие это 5 строк и на чем ?
На том, что у Вас уже есть. Если Вы используете компонент TDbf, то перекодировка будет выглядеть примерно так:
Dbf1.First;
Dbf1.Edit;
For i:=0 To Dbf1.RecordCount-1 Do
Dbf1.FieldByName('Текстовое_поле').AsString:=ConsoleToUtf8(Dbf1&#46 ...
whs
04.11.2012 17:00:08
Форум: Разработки на нашем сайте
Тема: MSSQL и SyBase
Ответы: 23
Просмотры: 48194

Re: MSSQL и SyBase

Пока использую вариант "слойка", подключаюсь через ODBC.
whs
04.11.2012 16:55:20
Форум: Lazarus
Тема: Создание DLL (Различается между Lazarus и Delphi)
Ответы: 35
Просмотры: 29822

Re: Создание DLL (Различается между Lazarus и Delphi)

Даже в Delphi вызов классов VCL из dll вызывал много вопросов и проблем. В Lazarus - это очень сложно, потому что:
1) LCL гораздо более "тяжелый" и менее стабильный, чем VCL.
2) Компиляция dll в FreePascal - вообще очень проблемная задача. Собрать-то можно, но вот работоспособность никто не ...
whs
03.11.2012 10:01:18
Форум: Lazarus
Тема: Создание DLL (Различается между Lazarus и Delphi)
Ответы: 35
Просмотры: 29822

Создание DLL (Различается между Lazarus и Delphi)

Есть исходник написанной DLL на Delphi 7, возникла необходимость перенести на Lazarus. Все компилируется но вот вызвать из программы Окно из своей DLL не получается, либо ничего не происходит (функции ничего не возвращают будто не экспортируются), либо Access Violation. Перелопатил весь интернет ...
whs
01.11.2012 20:02:56
Форум: Разработки на нашем сайте
Тема: MSSQL и SyBase
Ответы: 23
Просмотры: 48194

Re: MSSQL и SyBase

Весь инет облазил. И весь BagTrack в поисках возможности подключится к MSSQL (Нужные мне версии начиная от 2000, 2002, 2005, возможно еще 2008) MSSQLConnect в Lazarus 1.1 + FPC 2.7.1 не работает видать он слишком сырой. И тут натыкаюсь на этот компонент ну думаю а вдруг он то сможет подключится ...
whs
07.05.2012 11:22:48
Форум: Lazarus
Тема: Отображение картинки в DBImage
Ответы: 5
Просмотры: 4443

Re: Отображение картинки в DBImage

Может я ошибаюсь но здесь можно обойтись и без потока и BmRead.
whs
27.03.2012 12:37:33
Форум: Lazarus
Тема: Ошибки при создании компонента
Ответы: 4
Просмотры: 3759

Re: Объясните новичку.

whs Как то ошибки не соответствуют приведённым выше.
unit1.pas(53,15) Warning: An inherited method is hidden by "TScrollingCredits.SetVisible(const Boolean);"
unit1.pas(44,15) Error: Forward declaration not solved "TScrollingCredits.ResetAnimation;"
unit1.pas(51,15 ...
whs
23.03.2012 20:46:57
Форум: Lazarus
Тема: Ошибки при создании компонента
Ответы: 4
Просмотры: 3759

Re: Объясните новичку.

whs код читать лень. А где же всё таки текст ругань?

(41,15)Warning: An inherited method is hidden by "TScrollingCredits.SetVisible(const Boolean);"
(148,30) Error: Wrong number of parameters specified for call to "TimerFired"
(50,15) Hint: Found declaration: TScrollingCredits.TimerFired(TObject ...
whs
23.03.2012 15:23:04
Форум: Lazarus
Тема: Ошибки при создании компонента
Ответы: 4
Просмотры: 3759

Ошибки при создании компонента

Решил опробовать создание компонентов для Lazarus, но видать что-то не до конца понимаю.
unit ScrollingCredits;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, LResources,Forms, Controls, Graphics, Dialogs,ExtCtrls;

type

{ TScrollingCredits }
TCreditEvent = procedure(Sender &#58 ...
whs
07.01.2012 15:12:06
Форум: Lazarus
Тема: Использование внешней DLL для работы с M$ Word
Ответы: 75
Просмотры: 75793

Re: Использование внешней DLL для работы с M$ Word

Думал что у меня пример не работает выложенный, при открытии DBF файла (которые хранятся с одной старой программой), а проблема в пути к файлу оказалась (Не любит изначально на кириллице файлы видеть) Путь вида :
E:\Софтина бугалтерская\UMC_XBK\DBF\DOKU0508.dbf
whs
11.03.2011 07:19:22
Форум: Lazarus
Тема: Тестирование версии 0.9.29
Ответы: 92
Просмотры: 72169

Re: Тестирование версии 0.9.29

sobee писал(а):Все желающие могут скачать здесь ftp://ftp.hu.freepascal.org/pub/lazarus ... es/Lazarus Windows 32 bits/Lazarus 0.9.30


У меня по ссылке ошибка 550. Такчто лучше заходить по ftp://ftp.hu.freepascal.org/pub/lazarus/releases а там уже переходить самому.