Da li neko od programera sa ovog foruma može da istestira jedan DLL koji sam pravio? Funkcija koja me zanima da li radi je ovako deklarisana (u Delphiju, gde sam pisao DLL):
function fipe_GetSystemFingerprint(rStr: PChar; rStrSize: Integer): Integer; stdcall;
Sam DLL možete skinuti
odavde. Čisto me zanima
da li DLL može da se koristi iz ostalih jezika (osim Delphija)? Pisan je tako da bi trebalo da može. Znači prvi put pozovete fipe_GetSystemFingerprint sa parametrima nil i 0 i ona će vam vratiti veličinu stringa koji će biti vraćen, posle je pozovete "kako treba" i ona bi trebalo da Vam vrati neku oznaku vašeg računara u formatu
abcd-efgh-ijkl-mnop (ako je fiksna dužina stringa, a jeste, onda odmah možete da pozovete
fipe_GetSystemFingerprint(PChar(rStr), 15);)
Primer pozivanja funkcije iz Delphija:
Kôd:
function fipe_GetSystemFingerprint(rStr: PChar; rStrSize: Integer): Integer; stdcall; external 'fipewin.dll';
//...
procedure MojaProc();
var
rStr: String;
rSize: Integer;
begin
rSize := fipe_GetSystemFingerprint(nil, 0);
SetLength(rStr, rSize);
fipe_GetSystemFingerprint(PChar(rStr), rSize);
showmessage(rStr);
end;