Ich programmiere gern und oft in Assembler.
Um einen in einer Assemblerroutine erzeugten und auf dem Stack abgelegten String in eine Variable des Typs String zu kopieren will ich die in systems enthaltene Routine _LStrAsg benutzen.
Problem : Die Routine, obwohl im Interface von System deklariert, läßt sich nicht aufrufen.
Meine bisherige Lösung :
Ich rufe in FormCreate die Prozedur _CopyStr auf (damit sie Compiliert wird) und dann die Prozedur GetLStrAsgAddress, die aus dem Compilat von _CopyStr die Adresse von _LStrAsg holt und speichert.
Weiß jemand eine elegantere Methode, um an die Adresse von _LStrAsg heranzukommen ?
Herzlichen Dank.
Delphi-Quellcode:
var LStrASG:Cardinal;
const DummiStr:String='
Dummi';
PROCEDURE _CopyStr(
var s:
string);
begin
s:=DummiStr;
end;
FUNCTION GetLStrAsgAddress:boolean;
asm
xor eax,eax
// Result=False
lea edx,_CopyStr+$10;
// da steht call _LStrAsg
cmp byte [edx],$E8
// Steht das da wirklich ('E8'='call'?
jne @
End
inc edx
// Zeigt auf die relative Adresse von _LStrAsg
add edx,[edx]
// Offset addieren
add edx,4
// + 1 DWord für die Adresse
mov LStrAsg,edx
// speichern
inc eax
// Result=True
@
End:
end;