[AlexeyU25]

Ситуация следующая:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

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)

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