Header zu Unit Problem !

[nitschchedu]

Ich habe eine Header Übersetzt nun wenn ich sie anwenden will Bekomme ich bei den aufruf
einen Fehler. :(

Die Übersetzung:

Code:

typedef enum
{
   eSteamErrorNone                                       = 0,
   eSteamErrorUnknown                                    = 1,
   eSteamErrorLibraryNotInitialized                        = 2,
   eSteamErrorLibraryAlreadyInitialized                     = 3,
   eSteamErrorConfig                                    = 4,
   eSteamErrorContentServerConnect                           = 5,
   eSteamErrorBadHandle                                 = 6,
   eSteamErrorHandlesExhausted                              = 7,
   eSteamErrorBadArg                                    = 8,
   eSteamErrorNotFound                                    = 9,
   eSteamErrorRead                                       = 10,
   eSteamErrorEOF                                       = 11,
   eSteamErrorSeek                                       = 12,
   eSteamErrorCannotWriteNonUserConfigFile                     = 13,
   eSteamErrorCacheOpen                                 = 14,
   eSteamErrorCacheRead                                 = 15,
   eSteamErrorCacheCorrupted                              = 16,
   eSteamErrorCacheWrite                                 = 17,
   eSteamErrorCacheSession                                 = 18,
   eSteamErrorCacheInternal                              = 19,
   eSteamErrorCacheBadApp                                 = 20,
   eSteamErrorCacheVersion                                 = 21,
   eSteamErrorCacheBadFingerPrint                           = 22,

   eSteamErrorNotFinishedProcessing                        = 23,
   eSteamErrorNothingToDo                                 = 24,
   eSteamErrorCorruptEncryptedUserIDTicket                     = 25,
   eSteamErrorSocketLibraryNotInitialized                     = 26,
   eSteamErrorFailedToConnectToUserIDTicketValidationServer      = 27,
   eSteamErrorBadProtocolVersion                           = 28,
   eSteamErrorReplayedUserIDTicketFromClient                  = 29,
   eSteamErrorReceiveResultBufferTooSmall                     = 30,
   eSteamErrorSendFailed                                 = 31,
   eSteamErrorReceiveFailed                              = 32,
   eSteamErrorReplayedReplyFromUserIDTicketValidationServer      = 33,
   eSteamErrorBadSignatureFromUserIDTicketValidationServer         = 34,
   eSteamErrorValidationStalledSoAborted                     = 35,
   eSteamErrorInvalidUserIDTicket                           = 36,
   eSteamErrorClientLoginRateTooHigh                        = 37,
   eSteamErrorClientWasNeverValidated                        = 38,
   eSteamErrorInternalSendBufferTooSmall                     = 39,
   eSteamErrorInternalReceiveBufferTooSmall                  = 40,
   eSteamErrorUserTicketExpired                           = 41,
   eSteamErrorCDKeyAlreadyInUseOnAnotherClient                  = 42,

   eSteamErrorNotLoggedIn                                 = 101,
   eSteamErrorAlreadyExists                              = 102,
   eSteamErrorAlreadySubscribed                           = 103,
   eSteamErrorNotSubscribed                              = 104,
   eSteamErrorAccessDenied                                 = 105,
   eSteamErrorFailedToCreateCacheFile                        = 106,
   eSteamErrorCallStalledSoAborted                           = 107,
   eSteamErrorEngineNotRunning                              = 108,
   eSteamErrorEngineConnectionLost                           = 109,
   eSteamErrorLoginFailed                                 = 110,
   eSteamErrorAccountPending                              = 111,
   eSteamErrorCacheWasMissingRetry                           = 112,
   eSteamErrorLocalTimeIncorrect                           = 113,

   eSteamErrorNetwork                                    = 200


} ESteamError;


typedef enum
{
   eNoDetailedErrorAvailable,
   eStandardCerrno,
   eWin32LastError,
   eWinSockLastError,
   eDetailedPlatformErrorCount
} EDetailedPlatformErrorType;


typedef struct
{
   ESteamError eSteamError;
   EDetailedPlatformErrorType eDetailedErrorType;
   int nDetailedErrorCode;
   char szDesc[STEAM_MAX_PATH];
} TSteamError;


STEAM_API int            STEAM_CALL   SteamStartEngine( TSteamError *pError );

Delphi-Quellcode:

const
    NDU_STEAM_USING_LOGGING                       = $00000002;

type
  TnduESteamError = (eSteamErrorNone                   = 0,
    eSteamErrorUnknown                                 = 1,
     eSteamErrorLibraryNotInitialized   = 2,
     eSteamErrorLibraryAlreadyInitialized      = 3,
     eSteamErrorConfig                          = 4,
     eSteamErrorContentServerConnect                                    = 5,
     eSteamErrorBadHandle                                           = 6,
     eSteamErrorHandlesExhausted                                          = 7,
     eSteamErrorBadArg                                            = 8,
     eSteamErrorNotFound                                             = 9,
     eSteamErrorRead                                            = 10,
     eSteamErrorEOF                                            = 11,
     eSteamErrorSeek                                               = 12,
     eSteamErrorCannotWriteNonUserConfigFile                        = 13,
     eSteamErrorCacheOpen                                          = 14,
     eSteamErrorCacheRead                                          = 15,
     eSteamErrorCacheCorrupted                                       = 16,
     eSteamErrorCacheWrite                                          = 17,
     eSteamErrorCacheSession                                       = 18,
     eSteamErrorCacheInternal                                             = 19,
     eSteamErrorCacheBadApp                                             = 20,
     eSteamErrorCacheVersion                                             = 21,
     eSteamErrorCacheBadFingerPrint                                    = 22,

     eSteamErrorNotFinishedProcessing                                 = 23,
     eSteamErrorNothingToDo                                             = 24,
     eSteamErrorCorruptEncryptedUserIDTicket                        = 25,
     eSteamErrorSocketLibraryNotInitialized                        = 26,
     eSteamErrorFailedToConnectToUserIDTicketValidationServer      = 27,
     eSteamErrorBadProtocolVersion                                         = 28,
     eSteamErrorReplayedUserIDTicketFromClient                          = 29,
     eSteamErrorReceiveResultBufferTooSmall                             = 30,
     eSteamErrorSendFailed                                                = 31,
     eSteamErrorReceiveFailed                                           = 32,
     eSteamErrorReplayedReplyFromUserIDTicketValidationServer      = 33,
     eSteamErrorBadSignatureFromUserIDTicketValidationServer         = 34,
     eSteamErrorValidationStalledSoAborted                               = 35,
     eSteamErrorInvalidUserIDTicket                                       = 36,
     eSteamErrorClientLoginRateTooHigh                                    = 37,
     eSteamErrorClientWasNeverValidated                                  = 38,
     eSteamErrorInternalSendBufferTooSmall                               = 39,
     eSteamErrorInternalReceiveBufferTooSmall                          = 40,
     eSteamErrorUserTicketExpired                                         = 41,
     eSteamErrorCDKeyAlreadyInUseOnAnotherClient                        = 42,

     eSteamErrorNotLoggedIn                                        = 101,
     eSteamErrorAlreadyExists                                        = 102,
     eSteamErrorAlreadySubscribed                                         = 103,
     eSteamErrorNotSubscribed                                        = 104,
     eSteamErrorAccessDenied                                           = 105,
     eSteamErrorFailedToCreateCacheFile                                  = 106,
     eSteamErrorCallStalledSoAborted                                       = 107,
     eSteamErrorEngineNotRunning                                         = 108,
     eSteamErrorEngineConnectionLost                                       = 109,
     eSteamErrorLoginFailed                                        = 110,
     eSteamErrorAccountPending                                           = 111,
     eSteamErrorCacheWasMissingRetry                                       = 112,
     eSteamErrorLocalTimeIncorrect                                         = 113,

     eSteamErrorNetwork                                                = 200);


TnduEDetailedPlatformErrorType = (eNoDetailedErrorAvailable,
     eStandardCerrno,
     eWin32LastError,
     eWinSockLastError,
     eDetailedPlatformErrorCount);


  PnduSteamError = ^TnduSteamError;
  TnduSteamError = packed record
    eSteamError: TnduESteamError;
    eDetailedErrorType: TnduEDetailedPlatformErrorType;
    nDetailedErrorCode: Integer;
    szDesc: array [0..NDU_STEAM_MAX_PATH] of Char;
  end;


function SteamStartup(uUsingMask: Cardinal;
    pError: PnduSteamError): Integer; stdcall; external 'steam.dll';

Der Aufruf:

Delphi-Quellcode:

intSteamEngine := SteamStartup(NDU_STEAM_USING_LOGGING, @Error);

  if intSteamEngine <> 1 then
  begin
    SteamShutdownEngine(@Error);
    ShowMessage('Error!');
  end;

Im Projekt Project1.exe ist eine Execption der Klasse EAccessViolation aufgetreten.
Meldung: 'Zugriffsverletzung bei Adresse 00000000. Lesen von Adresse 00000000'.
Prozess wurde angehlaten. Mit Einzelne Anweisung oder Start fortsetzten.

:wall:

Könnt ihr mir Helfen ?

[mkinzler]

Die AV deutet darauf hin, daß auf einen uniinitialisierten Speicherbereich zugegriffen wird, du z.B. eine nicht instantiierte Klasse verwenden willst.

Wie ist SteamStartup deklariert?
Was ist error?

[nitschchedu]

Der Komplete aufruf sieht so aus.

Delphi-Quellcode:

procedure TForm1.Button15Click(Sender: TObject);
var
  Error: TnduSteamError;
  intSteamEngine: Cardinal;
begin
  intSteamEngine := SteamStartup(NDU_STEAM_USING_LOGGING, @Error);

  if intSteamEngine <> 1 then
  begin
    SteamShutdownEngine(@Error);
    ShowMessage('Error!');
  end;
end;

Im Error steht zwar der Fehler MSG unter Error.szDesc aber am ende kommt der Fehler.

SteamStartUP

Code:

STEAM_API int            STEAM_CALL   SteamStartup( unsigned int uUsingMask, TSteamError *pError );

[Christian Seehase]

Moin nitschchedu,

woher weisst Du denn, dass STEAM_CALL der Aufrufkonvention stdcall entspricht?
Könnte es nicht auch cdecl sein?

[Dani]

Nur so aus Neugier... was gibt das denn wenns fertig ist?

[Hawkeye219]

Hallo nitschchedu,

vielleicht hast du auch nur einige alte Fehler wiederholt: klick

Gruß Hawkeye

[nitschchedu]

Wenn du das mit der Größe von den Arrays meinst da habe ich diesmal ser genau drauf aufgepasst. (Aus fehlern lernt man). :-D
Wenn das ganze fertig ist will ich mit meinen Steam mich einlogen und meine Games updaten lassen in der Console.

[nitschchedu]

Zitat:

Zitat von Christian Seehase

Moin nitschchedu,

woher weisst Du denn, dass STEAM_CALL der Aufrufkonvention stdcall entspricht?
Könnte es nicht auch cdecl sein?

Wie kann ich denn das Rausbekommen ?

[nitschchedu]

Zitat:

Zitat von nitschchedu

Zitat:

Zitat von Christian Seehase

Moin nitschchedu,

woher weisst Du denn, dass STEAM_CALL der Aufrufkonvention stdcall entspricht?
Könnte es nicht auch cdecl sein?

Wie kann ich denn das Rausbekommen ?

Ich glaube es liegt daran

Delphi-Quellcode:

#ifdef STEAM_EXPORTS
#define STEAM_API __declspec(dllexport)
#else
#define STEAM_API __declspec(dllimport)
#endif

#define STEAM_CALL __cdecl

#else

#define STEAM_API /* */
#define STEAM_CALL /* */

#endif

oder ?

[Christian Seehase]

Moin nitschchedu,

dann solltest Du es mal auf cdecl ändern.