Einzelnen Beitrag anzeigen

Bubble

Registriert seit: 27. Jul 2015
4 Beiträge
 
#1

Hilfe bei Steam API Wrappers

  Alt 27. Jul 2015, 08:57
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.

Geändert von mkinzler (27. Jul 2015 um 09:42 Uhr) Grund: Delphi-Tag eingefügt
  Mit Zitat antworten Zitat