Показать сообщение отдельно
  #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)

Ребят у кого такое было, может подскажете.... Спасибо!
Ответить с цитированием