PostgreSQL GetServerList

[eduardomendes]

Hi,

when trying use GetServerList with PostgreSQL occurs error.

"NetServerEnum error 6118"
-------------------------------------------------------------------------------
|*Exception Thread: ID=4064; Priority=0; Class=; [Main] |
|-----------------------------------------------------------------------------|
|0035E411|dac70.bpl|Dbaccess.pas|TCRNetManager|GetServerList|
|40032E73|rtl70.bpl|Classes.pas|TStringList|SetSorted|
|0035E37C|dac70.bpl|Dbaccess.pas|TCRNetManager|GetServerList|
|0035E606|dac70.bpl|Dbaccess.pas|TCRNetManager|GetServerList|
|0035E56C|dac70.bpl|Dbaccess.pas|TCRNetManager|GetServerList|
|00519CAF|pgprovider70.bpl|Pgservicesuni.pas|TPgServerEnumerator|GetServerList|
-------------------------------------------------------------------------------

How can I fix this problem?

Thanks!

[AlexP]

hello,

We cannot reproduce the problem. The code below doesn't cause errors. Please try executing this code, and if there are no errors, send us a sample reproducing the problem, and specify the versions of your IDE, UniDAC and OS

Code: Select all

var
  lst: TstringList;
  i: Integer;
  UniConnection: TUniConnection;
  UniConnectDialog: TUniConnectDialog;
begin
  UniConnection := TUniConnection.Create(nil);
  UniConnection.ProviderName := 'PostgreSQL';
  UniConnectDialog :=  TUniConnectDialog.Create(nil);
  UniConnection.ConnectDialog := UniConnectDialog;

  UniConnectDialog.UseServerHistory := False;
  lst := TStringList.Create;
  try
    UniConnectDialog.GetServerList(lst);
    for i := 0  to lst.Count - 1 do
      ShowMessage(lst[i]);
  finally
    lst.Free;
    UniConnection.Free;
    UniConnectDialog.Free;
  end;
end;

[eduardomendes]

Hi,

my UNIDAC version is 3.70.0.19.

- Windows 2003 Server
- Windows 7

I'm use:

UniConnectDialog.StoreLogInfo := False;
UniConnectDialog.UseServerHistory := False;

[AlexP]

hello,


You are using a rather old UniDAC version, try updating your version to the latest 4.3.8, it may solve the problem