Wenn man sich über IdTCP anmeldet bekommt man einen code vom GameSpy Server und muss diesen mit der dll bearbeiten mit der Funktion GameSpyAuth. Dann wird der sich daraus ergebende Key zurückgesandt und man erhält die ServerListe für das Spiel seinder wahl.

Die DLL liegt im Programmordner.

main.cpp:

void __fastcall TForm1::Button3Click(TObject *Sender)
{

HINSTANCE hdll=LoadLibrary("gsmsalg.dll");
GameSpyAuth=(AnsiString(__stdcall*)(AnsiString, AnsiString, int))GetProcAddress(hdll,"_GameSpyAuth");

// Create a client token from the the server token, UT key, and appropriate 'enctype'
ShowMessage(GameSpyAuth(Edit2->Text, Key, 0));       // use DLL

main.h:

private:	// User declarations
          AnsiString (__stdcall* GameSpyAuth)(AnsiString, AnsiString, int);

Wenn ich auf den Button klicke, dann kommt folgende Fehlermeldung:

Projekt nggser.exe raised exception class EAccessVoilation 'Access violation at address 000000000. Read of address 000000000'. Process stopped. Use Step or Run to continue.

Müsste doch eigentlich nur mit der dll gehen.
Benötigt man nicht noch eine .lib der DLL?

Was habe ich beim einbinden der DLL falsch gemacht?

Oder muss ich vielleicht void anstatt ansistring nehmen?
Damm sagt er aber dass er nicht void nach ansitring convertieren kann...

GameSpyAuth=(AnsiString(__stdcall*)(AnsiString, AnsiString, int))GetProcAddress(hdll,"_GameSpyAuth");

Ist schon mal sehr verdächtig. Ich bezweifle stark, das die DLL Funktionen mit AnsiString-Typen als Parameter anbietet, meistens sind es reine C-Strings (char *). Informiere dich also erstmal, was deine gewünschte Funktion als Signatur anbietet, und benutzt diese Signatur als Funktionspointer-Typ, nicht einen selbst ausgedachten.

bis bald
akari

Aber du solltest das zurückgegeben Handle auf deien Dll prüfen, ob überhaupt geladen wurde.
Dasselbe gilt natürlich auch für deinen Funktionszeiger, den du von GetProcAddress zurückbekommst.
Und woher weisst du, ob der Funktionsname in der DLL mit einem Unterstrich anfängt?

Davor gilt natürlich auch noch akari's einwurf, wenn du nicht weisst, was in der DLL drin ist, wird dein Funktionszeiger immer falsch liegen.

http://www.geocities.com/kqforum/UTServerQuery2.zip

und versuche es nun auf BCB umzuschreiben bisher hat es funktioniert.

Hier aus der Unit1.pas des Beispiels de betreffende Stelle:

function TForm1.GameSpyAuth(Secure, Key: String; AuthType: Integer): String;
var
  lHandle: THandle;
  func: TSkynetAuthDll;
begin
  lHandle := LoadLibrary(pchar(FCurrentDir + '\' + FAuthDLL));
  try
    if lHandle <> 0 then begin
      @func := GetProcAddress(lHandle, 'gsseckey'); //seckey
      if @func <> nil then begin
        SetLength(Result, Round(Length(Secure) * (4 / 3)));
        func(PChar(Result), PChar(Secure), PChar(Key), AuthType);
      end else
        raise EExternalLibraryMethodNotFound.Create('Error locating function in DLL library: ' + FCurrentDir + '\' + FAuthDLL);
    end else
      raise EFileNotFoundError.Create('Missing DLL library file: ' + FCurrentDir + '\' + FAuthDLL);
  finally
    FreeLibrary(lHandle);
  end;
end;

Habe jetzt mei Programm umgeschrieben:

main.cpp:

HINSTANCE hdll=LoadLibrary("gsmsalg.dll");
GameSpyAuth=(String(__stdcall*)(String, String, Integer))GetProcAddress(hdll,"_GameSpyAuth");

main.h:

String (__stdcall* GameSpyAuth)(String, String, Integer);

Geht aber immer noch nicht, der selbe Fehler tritt auf.

Wie mache ich das mit dem überprüfen ob die dll geladen ist ich hasse den code kann das nicht übersetzen:

if lHandle <> 0 then begin
      @func := GetProcAddress(lHandle, 'gsseckey'); //seckey

ist einfach eine Überprüfung

if (lHandle)
{
  // Hier Code ausführen, wenn lHandle gültig (!= NULL) ist
  }
else
{
  // Hier Code ausführen, wenn lHandle nicht gültig (== NULL) ist
  }

bis bald
akari

Das mit dem überprüfen ist einfach, das meiste steht ja schon in Pascal vor dir:

if(hdll == NULL){
 //- tu was, die Dll wurde nicht geladen
}else{
 //- tu was anderes, die Dll wurde geladen
}

Die Rückgabewerte dieser Funktionen ( auch GetProcAddress )kriegst du über die Borlandhilfe.

Also dll wurde erfolgreich geladen!

Fehler also beim aufruf.

Beispiel:

Secure := ExtractServerToken(TempString);
          //secure =     function  GetGameKey(GameAbbr: String): String; also secure ist ein string!

          Key := GetGameKey(GameName);
          Key := uGameSpyKey.getHandoff(Key);
          // ist auch ein string

          // Create a client token from the the server token, UT key, and appropriate 'enctype'
          case RadioGroup1.ItemIndex of
            0: AuthReply := GameSpyAuth(Secure, Key, 0);       // benutze DLL !!!!!
            1: AuthReply := uGameSpyKey.gsseckey(Secure, Key); // benutze Delphi unit
          end;
          Memo2.Lines.Add('Generated client token = ' + AuthReply);
        except
          raise;
        end;

        // SEND AUTH
        // hier sendet er den code dann über idtcp das kann ich....

man hat ja die wahl zwischen der dll und dem

delphi code:

[/cpp]unit uGameSpyKey;

interface
function addchar(var Validate: string; number: byte): string;
function getHandoff(const Handoff: string): string;
function gsseckey(SecureKey, HandOff: String): String;

implementation

function getHandoff(const Handoff: string): string;
var
i : byte ; // Loop-var
// Handoff is too short:
begin
Result := '';
if Length(Handoff) < 13 Then
Result := Handoff
else begin
i := 3;
while i <= 13 do begin
// Add next char to our new Handoff
Result := Result + Copy(Handoff, i, 1);
Inc(i, 2);
end;
end;
end; { function }

function addchar(var Validate: string; number: byte): string;
var
newchar: String;
begin
if (Number < 26) then
newchar := Chr(Number + 65)
else if (Number < 52) then
newchar := Chr(Number + 71)
else if (Number < 62) then
newchar := Chr(Number - 4)
else if (Number = 62) then
newchar := '+'
else if (Number = 63) then
newchar := '/';
Validate := validate + newchar;
end;

function gsseckey(SecureKey, HandOff: String): String;
var
Table: Array[0..255] Of Byte;
Key: Array of Byte;
Len: Array[0..1] Of Byte;
Temp: Array[0..3] Of Byte;
I, X: Integer;
Validate: String;
begin
FillChar(Temp,4,0);

for I := 0 to 255 do
Table[I] := I;

Len[0] := Length(Handoff);
Len[1] := Length(SecureKey);

for i := 0 to 255 do begin

Temp[0] := (Temp[0] + Table[i] + Ord(Handoff[i mod Len[0] + 1])) AND 255;
Temp[1] := Table[Temp[0]];
Table[Temp[0]] := Table[i];
Table[i] := Temp[1];

end;

Temp[0] := 0;
SetLength(Key,Len[1]);
Len[1] := Len[1] Div 3;

for I := 0 to High(Key) do begin
Key[i] := Ord(SecureKey[i+1]);
Temp[0] := (Temp[0] + Key[i] + 1) AND 255;
Temp[1] := Table[Temp[0]];
Temp[2] := (Temp[2] + Temp[1]) AND 255;
Temp[3] := Table[Temp[2]];

Table[Temp[2]] := Temp[1];
Table[Temp[0]] := Temp[3];

Key[i] := Key[i] XOR Table[(Temp[1] + Temp[3]) AND 255];
end;

i := 0;

while Len[1] >= 1 do begin
Len[1] := Len[1] - 1;

Temp[1] := Key[i];
Temp[3] := Key[i + 1];
addchar(Validate,(Temp[1] shr 2));
addchar(validate,((Temp[1] AND 3) shl 4 OR Temp[3] shr 4));

Temp[1] := Key[i + 2];

addchar(validate,((Temp[3] AND 15) shl 2 OR Temp[1] shr 6));
addchar(validate,Temp[1] AND 63);

i := i + 3;
end;

Result := validate;
end;
end.[cpp]

Aber wie soll man das nur übersetzen?

gibt es keinen Delphi -> BCB übersetzer?

Also ich habe jetzt hier entnommen:

function TForm1.GameSpyAuth(Secure, Key: String; AuthType: Integer): String;
var
  lHandle: THandle;
  func: TSkynetAuthDll;
begin
  lHandle := LoadLibrary(pchar(FCurrentDir + '\' + FAuthDLL));
  try
    if lHandle <> 0 then begin
      @func := GetProcAddress(lHandle, 'gsseckey'); //seckey
      if @func <> nil then begin
        SetLength(Result, Round(Length(Secure) * (4 / 3)));
        func(PChar(Result), PChar(Secure), PChar(Key), AuthType);
      end else
        raise EExternalLibraryMethodNotFound.Create('Error locating function in DLL library: ' + FCurrentDir + '\' + FAuthDLL);
    end else
      raise EFileNotFoundError.Create('Missing DLL library file: ' + FCurrentDir + '\' + FAuthDLL);
  finally
    FreeLibrary(lHandle);
  end;
end;

genauer dort:
[/cpp]@func := GetProcAddress(lHandle, 'gsseckey'); //seckey[cpp]

,dass GameSpyAuth nicht die Funktion der DLL sondern des Delphi Beispiels ist.

gsseckey heisst die Funktion in der DLL.

habe das jetzt angepasst und bekomme immerhin schon eine andere Fehlermeldung:

Projekt nggserver.exe raised exception class EAccessVoilation with message 'Access violation at address 40006B10 in module 'rtl60.bpl'. Read of address 73686363'. Process stopped. Use Step or Run to continue.

das kommt, wenn ich gsseckey als funktion nehme. Wenn ich etwas anderen als funktion schreibe kommt ein anderer fehler und als speicheraddresse 0000000...

das bedeutet ich habe die richtige funktion, diese aber falsch angewand.

SetLength(Result, Round(Length(Secure) * (4 / 3)));
        func(PChar(Result), PChar(Secure), PChar(Key), AuthType);

Aber wie soll ich das übersetzen?

func(PChar(Result), PChar(Secure), PChar(Key), AuthType);

Ist ja nicht die anwendung der Funktion. Aber ich finde im Beispiel kein anwendung (wo dann ja auch zu erkennen sein sollte, was für ein wert AuthType ist)....

das ist eine funktion, die beinhaltet ein weitere funktion zu definieren.

Also ich kann da nicht erkennen, das eine funktion der DLL angewand wird.

Sei denn,

func(PChar(Result), PChar(Secure), PChar(Key), AuthType);

Result soll eich char sein, wo Secure und key durch AuthType herreingeneriert wird? mal versuchen

Projekt nggserver.exe raised exception... in module 'gsmsalg.dll'. Read of address...

zumindest ist jetzt die funktion richtig, aber immer noch fehler -.-