Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 10.12.2019, 14:53
AlexeyU25 AlexeyU25 вне форума
Прохожий
 
Регистрация: 25.09.2019
Сообщения: 2
Версия Delphi: XE8
Репутация: 10
По умолчанию Ошибка Read of address FFFFFFFFFFFFFFFF

Ситуация следующая:
Код:
Caption := Caption +' '+FormatDateTime('hh:mm:ss', Now);
CoInitialize(nil);

FDQConn := TFDConnection.Create(nil);
FDPhysPgDriverLinkPg := TFDPhysPgDriverLink.Create(nil);
// FDPhysSQLiteDriverLinkSql := TFDPhysSQLiteDriverLink.Create(nil);
FDQSql := TFDQuery.Create(nil);

FDPhysPgDriverLinkPg.Release;
FDPhysPgDriverLinkPg.DriverID := 'PG_';
//FDPhysPgDriverLinkPg.VendorHome := 'x:\xxxx\xxxxxxxx\xxxxxxxxx\';
FDPhysPgDriverLinkPg.VendorLib := 'x:\xxxx\xxxxxxxx\xxxxxxxx\libpq.dll';

FDQConn.DriverName := 'PG';
FDQConn.Params.Database := 'xxxxxx';
FDQConn.Params.DriverID := 'PG_';
FDQConn.Params.Password := 'xxxxx;
FDQConn.Params.UserName := 'xxxxx';
FDQConn.Params.Add('Server=XXXXX-XXXXXX0678'); 
FDQConn.ResourceOptions.ServerOutput := True;

try
FDQConn.Connected := True;

while not FDQConn.Connected do begin end;

if FDQConn.Connected then
begin
FDQSql.Connection := FDQConn;
with FDQSql.SQL do
begin
Clear;
Add('begin;');
Add('select storedproc15(''2019-09-01'',''2019-09-05'', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ''acur'');');
Add('FETCH ALL IN acur;');
//Add('end;');
end;
FDQSql.Active := True; //ExecSQL;
end;

ShowMessage('21');
Админ: Пользуемся тегами при оформлении кода!

Если под отладкой этот код работает, если не под отладкой ошибка Read of address FFFFFFFFFFFFFFFF

База 32 бита стоит на другой машине, ОС Win10 и XE8 -x64 платформа.(Драйвера подключил тоже x64)

Ребят у кого такое было, может подскажете.... Спасибо!

Последний раз редактировалось Admin, 10.12.2019 в 19:12.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 13:07.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter