19. 07. 2007. | #1 |
emperor Selassie
Grand Master
|
Testirajte DLL
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; Poslednja izmena od Nemanja Avramović : 19. 07. 2007. u 00:47. |
|
|