ich möchte zu allen Datensätzen einer Tabelle einzelne MD5 Werte generieren um diese nachher auf ihre "Version" zu überprüfen...
Die String-Zusammensetzung in der Schleife funktioniert. In die Zieltabelle wird mir auch ein berechneter HashKey je Zeile eingetragen. Allerdings fĂĽr jeden Datensatz IMMER der gleiche HashKey.
Folgenden Code haben wir bisher gebastelt:
Folgenden Code haben wir bisher gebastelt:
- Code: Alles auswählen
IF REC.FIND('-') THEN
REPEAT
REC.CALCFIELDS("Hash BLOB");
CLEAR(REC."Hash BLOB");
REC.MODIFY;
REC."Hash MD5" := '';
CLEAR(Test);
CLEAR(Ostream);
CLEAR(SInStream);
Text := FORMAT(REC);
BIGTEXTvariable.ADDTEXT(Text);
REC."Hash BLOB".CREATEOUTSTREAM(Ostream);
BIGTEXTvariable.WRITE(Ostream);
REC.CALCFIELDS("Hash BLOB");
IF REC."Hash BLOB".HASVALUE THEN BEGIN
REC."Hash BLOB".CREATEINSTREAM(SInStream);
CLEAR(BIGTEXTvariable);
BIGTEXTvariable.READ(SInStream);
MESSAGE('%1',BIGTEXT); //MESSAGES nur zu Testzwecken !!
MD5 := MD5.Create();
MD5.ComputeHash(SInStream);
HashKey := BTcon.ToString(MD5.ComputeHash(SInStream));
HashKey := DELCHR(HashKey, '=', '-');
REC."Hash MD5" := HashKey;
MESSAGE('%1',HashKey);
REC.MODIFY;
END;
UNTIL REC.NEXT = 0;
Ich freue mich ĂĽber Hilfe.. wir verzweifeln langsam
Danke vorab.