Autor | Thema: DLL-Nutzung | | Datum:22.06.02 22:10 
(carlo.keil@web.de) | |
Hallo Profanis,
ich habe eine DLL mit einer Funktion zur Berechnung von Hashcodes
und die folgende Information dazu bekommen:
VOID FAR PASCAL MD5(LPBYTE data,int bytes,LPBYTE hash)
data FAR pointer to the information to hash
bytes number of bytes pointed to by `data'. Must be <=32767.
hash FAR pointer to a a buffer to receive the 16 byte hash
Da mir die entsprechende Erfahrung fehlt wäre ich dankbar wenn
mir jemand, der sich damit auskennt einen kurzen Beispielcode
(Deklarationen, Funktionsaufruf und Resultatausgabe) erstellen
könnte.
Danke
Carlo
|
| | Datum:23.06.02 08:14 
(mrk@mrk-soft.de) | |
>VOID FAR PASCAL MD5(LPBYTE data,int bytes,LPBYTE hash)
Hi,
so ganz Spontan:
declare data#, hush, lData&
def md5(3) !"dllname.dll","md5"
lData& = 200
dim data#,lData&
dim hush#,lData&
String data#,0="1234567890"
value& = md5(data#,lData&,hush#)
print string$(hush#,0)
Es wäre aber einfacher gewesen, die DLL irgendwo auf einer
Page zu legen, das ist jetzt hier mal so aus der Hand
geschrieben.
|
| | Datum:23.06.02 12:20 
(carlo.keil@web.de) | |
Hallo Thorsten,
du hast ja recht (und genau für solche Zwecke habe ich ja auch
die unten benutzte Seite).
Deshalb, und weil ich die Meldung "Fehler beim Laden der DLL"
bekomme, sind jetzt DLL und dein (nur ganz leicht modifizierter)
Beispielcode unter
"http://mitglied.lycos.de/abckeil/linkseite.htm" zu finden.
Herzliche Grüsse und Danke
Carlo
|
| | Datum:23.06.02 16:01 
(mrk@mrk-soft.de) | |
So wie es aussieht, ist es eine 16 Bit DLL, und Profan
ab Version 7.0 läst diese nicht mehr zu.
Frag den Autor der DLL mal, ob er in der lage, ist eine
32 Bit Dll zu erzeugen ...
|
| | Datum: 23.06.02 21:41 
(carlo.keil@web.de) | |
Hallo Thorsten,
> Frag den Autor der DLL mal, ob er in der lage, ist eine
> 32 Bit Dll zu erzeugen ...
ich werde es versuchen.
Vielen Dank für dein Hilfe
Carlo
|
|
|