Einzelnen Beitrag anzeigen

Amateurprofi

Registriert seit: 17. Nov 2005
Ort: Hamburg
1.041 Beiträge
 
Delphi XE2 Professional
 
#1

Prozedur _LStrAsg in der Unit Systems

  Alt 2. Dez 2005, 00:19
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;
  Mit Zitat antworten Zitat