Hallo,
ich wollte die Steam
API Wrappers mit Delphi XE6 austesten (
https://github.com/Relfos/steamworks_wrappers ), habe aber schon Probleme bei der Initialisierung. Ich glaube, einen entscheidenden Schritt vergessen zu haben. Es wäre toll, wenn mir jemand weiterhelfen könnte.
Delphi-Quellcode:
unit test;
interface
uses
Winapi.Windows,
Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs,
Vcl.StdCtrls;
type
TForm1 =
class(TForm)
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Type
MyFunction =
Function(CustomUrl : PChar) : DWORD;
Stdcall;
Const
APIload = '
steam_api.dll';
PassString :
String = '
http://forum.lazarus.freepascal.org';
var
Form1: TForm1;
Function SteamAPI_Init : Boolean;
cdecl;
External APIload;
// Tried even with stdcall
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
If SteamAPI_Init = True
Then ShowMessage('
ok');
end;
end.
Das Programmverzeichnis sieht so aus:
CSteamworks.dll
libCSteamworks.so
SteamAPI.pas
test.dfm
test.dpr
test.dproj
test.pas
Das Programm wird fehlerlos kompiliert, beim Start erscheint jedoch die Form nicht und das Programm kehrt zum Editor zurück.