Witam serdecznie.
Mój problem dotyczy połączenia zdalnego, otóż łączę się za pomocą ADOConnection do bazy PostgresSQL i wszystko jest w porządku do czasu kiedy muszę połączyć się zdalnie przez TCP/IP.
Przykład połączenia:
DB_Connect : TADOConnection;
DB_Connect := TADOConnection.Create(Connect);
DB_Connect.ConnectionString := 'Provider=PostgreSQL.1;Password=postgresql;User ID=postgres;Data Source=192.168.2.3;Location="postgres";Extended Properties=""';
Połączenie jest negocjowane dynamicznie za pomocą biblioteki DLL:
function ConnectDB(DB_Connect : TADOConnection; plik, plik_pack : String) : Boolean;
procedure Polacz(DB_Connect : TADOConnection; plik : String);
begin
DB_Connect.ConnectionString := 'Provider=PostgreSQL.1;Password='+GetConnect(plik, 'haslo')+';User ID='+GetConnect(plik, 'login')+';Data Source='+GetConnect(plik, 'host')+';Location="postgres";Extended Properties=""';
DB_Connect.KeepConnection := True;
DB_Connect.LoginPrompt := False;
DB_Connect.Connected := True;
end;
begin
if FileExists(plik) then Polacz(DB_Connect, plik) else
begin
OpenConnect(plik, plik_pack); // procedura ustawiająca atrybutu połączenia
Polacz(DB_Connect, plik); // połączenie z bazą
end;
Result := DB_Connect.Connected;
end;
Pokusiłem się o zainstalowanie sterowników odbc(PostgreSQLa) na komputerze zdalnym i nie wiem co dalej. po prostu nie działa.