[Delphi] Определение полного захода в Steam

[eldest]

Вы вообще про что? Какая на фиг библиотека, можно тупо сделать импорт и не извращаться даже с динамической загрузкой.

Думаю нужные импорты можно взять у Андрея.

и не извращаться даже с динамической загрузкой

Я извращен.

[andreil]

Darth Revan
Вот так наверное

Код: Выделить всё

type
    SteamIsLoggedIn_t = function(pbIsLoggedIn: Integer; pError: TSteamError): int; virtual; cdecl;

const
    SteamIsLoggedIn: SteamIsLoggedIn_t = nil;

var
    steamDLL: THandle;
 
steamDLL := LoadLibrary('steam.dll');

try
    @SteamIsLoggedIn := GetProcAddress(steamDLL, 'SteamIsLoggedIn');
    SteamIsLoggedIn(<pbIsLoggedIn>, <pError>);
finally
    FreeLibrary(steamDLL);
end;

Не так, а вот так:

Код: Выделить всё

function SteamIsLoggedIn(pbIsLoggedIn: pInteger; pError: pSteamError): Integer; cdecl; external "Steam.dll";

Ты забыл про указатели ;)

В аттаче - часть исходников, там есть почти все функции Steam.dll (только там они направлены на экспорт, переделать по подобию описанной выше - добавить "external "Steam.dll";").

[Darth Revan]

Код: Выделить всё

function SteamIsLoggedIn(pbIsLoggedIn: pInteger; pError: pSteamError): Integer;
  cdecl; external 'Steam.dll';

function MySteamIsLoggedIn: Integer;
var
  steamDLL: THandle;
  pbIsLoggedIn: pInteger;
begin
  steamDLL := LoadLibrary('Steam.dll');
  try
    @SteamIsLoggedIn := GetProcAddress(steamDLL, 'SteamIsLoggedIn');
    SteamIsLoggedIn(pbIsLoggedIn, pError);
  except
    Result := -1;
  end;
  FreeLibrary(steamDLL);
  Result := pbIsLoggedIn;
end;

Переделал вот так, но pSteamError и TSteamError не существует.

[Dr_Quake]

Да вы совсем долбанулись ради boolean результата?! Это в 2 действия делается для этой одной функции.

asm
push @someint
push @someint2
call dword ptr [SteamIsLoggedIn]
mov eax,someintresult
end;

А далее по обстановке. Ну и в синтаксисе не уверен, это ж делфи.

[Darth Revan]

Dr_Quake
И что с этим дальше делать?

[eldest]

Dr_Quake
Ну тогда надо звать x_000, может он его асму научит.

[Fire666]

Код: Выделить всё

TSteamError pError;
bool pbIsLoggedIn;

SteamIsLoggedIn( pbIsLoggedIn, pError );

int CSteamFunc::SteamIsLoggedIn( bool &pbIsLoggedIn, TSteamError &pError )
{
	FARPROC FuncAdr = GetProcAddress(SteamDLL, "SteamIsLoggedIn");

	int funcexec = ((bool (__cdecl *)( bool &, TSteamError & ))FuncAdr)( pbIsLoggedIn, pError );

	return funcexec;
}

[Darth Revan]

eldest
Асм идёт у меня после С++ в списке.

fire64
Но при этом С++ я понимаю слабо (особенно, это касается типов и функций экспортируемых или импортируемых).

Добавлено спустя 42 минуты 50 секунд:
andreil
C PSteamError разобрался (вынул из Steam_Account.pas), но ни мой вариант, ни eldest'а не работают.

[Dr_Quake]

Работать с ним. Это вообще оформление было для delphi.

[Darth Revan]

Dr_Quake
Обрамление в asm и end; ещё не делает код basm-совместимым.

[Dr_Quake]

Delphi хватит вполне...

[x_000]

вы тут вообще о чем
пока я вижу тут только какой-то жуткий-жуткий файровский код
и, насколько я помню, в стим.длл функции совсем не cdecl, а stdcall

[andreil]

вы тут вообще о чем
пока я вижу тут только какой-то жуткий-жуткий файровский код
и, насколько я помню, в стим.длл функции совсем не cdecl, а stdcall

Как раз cdecl ;)

[x_000]

нда? а стек вроде вызываемая функция подчищает, или нет? может я это в стимклиент видел? приду домой, посмотрю точно
забыл уже, что и как в либах стима вызывается :(

Добавлено спустя 2 минуты 41 секунду:
а, я все-таки не прав. там действительно цдекл %)

[eldest]

Код: Выделить всё

STEAM_API int STEAM_CALL SteamIsLoggedIn (int *pbIsLoggedIn, TSteamError *pError);

int MySteamIsLoggedIn(void) {
    int pbIsLoggedIn = 0;
    TSteamError pError; // = new TSteamError;
    return (SteamIsLoggedIn(&pbIsLoggedIn, pError) ? pbIsLoggedIn : -1);
}

int IsLoggedIn = MySteamIsLoggedIn(); // 1 - logged in, 0 - not logged in, -1 - Error