GetConnectionInfo ist verschwunden [gelöst]

[corpsman]

Guten morgen,

ich nutze eine TMSSQLConnection und konnte bis Lazarus Version 1.1 unten stehendes verwenden

Code: Alles auswählen

 
  If MSSQLConnection1.Connected Then Begin
    showmessage('Server Version : ' + MSSQLConnection1.GetConnectionInfo(citServerVersionString));
 

nun sagt er mir dass er GetConnectionInfo nicht mehr kennt.

Laut hier sollte es aber gehen.

Nutze FPC 2.6.2 mit Lazarus 1.2.0 (revision 44303) unter Win7 32-Bit

Wurde das nur verändert und ich muss es nun anders schreiben, oder ists komplett rausgeflogen ?

Corpsman

[theo]

Bei mir ist es noch da. FPC 2.7.1

[corpsman]

Kannst du mal den Source dazu posten ?

Dann bastle ich mir einfach einen Workaround ..

[Socke]

Kannst du mal den Source dazu posten ?

Ich übernehme: http://svn.freepascal.org/svn/fpc/trunk ... sqlconn.pp

Code: Alles auswählen

function TMSSQLConnection.GetConnectionInfo(InfoType: TConnInfoType): string;
const
  SERVER_TYPE: array[boolean] of string = ('Microsoft SQL Server', 'ASE'); // product_name returned in TDS login token; same like ODBC SQL_DBMS_NAME
begin
  Result:='';
  try
    InitialiseDBLib(DBLibLibraryName);
    case InfoType of
      citServerType:
        Result:=SERVER_TYPE[IsSybase];
      citServerVersion:
        if Connected then
          Result:=FServerInfo.ServerVersion;
      citServerVersionString:
        if Connected then
          Result:=FServerInfo.ServerVersionString;
      citClientName:
        Result:=TMSSQLConnectionDef.LoadedLibraryName;
    else
      Result:=inherited GetConnectionInfo(InfoType);
    end;
  finally
    ReleaseDBLib;
  end;
end;

Offenbar ist die Method in FPC 2.6.2 noch nicht enthalten; In den Quellen zu 2.6.4 hingegen gibt es sie. Es heißt also nicht "noch da" sondern "schon da".

[m.fuchs]

Offenbar ist die Method in FPC 2.6.2 noch nicht enthalten; In den Quellen zu 2.6.4 hingegen gibt es sie. Es heißt also nicht "noch da" sondern "schon da".

Dann sollte ja ein Upgrade auf 1.2.2 reichen.

[corpsman]

lol,

hatte das Windows neu aufgesetzt und muss wohl den Falschen DL erwischt haben.

Probiere nun mal den hier der müsste dann ja gehen

Danke für die Info.

[theo]

Kannst du mal den Source dazu posten ?

Sorry corpsman, aber du bist jetzt 5 Jahre im Forum dabei, hast 800 Beiträge verfasst und weisst immer noch nicht, wie man an die aktuellen Sourcen rankommt?
Kaum zu glauben.

http://svn.freepascal.org/cgi-bin/viewv ... p?view=log

[corpsman]

*g*

ja manchmal bin ich nicht der Hellste, aber mit der neuen Version gehts wieder *g*.