Procedure soll Procedure aufrufen als Pointer ?

[turboPASCAL]

Hi,

ich habe ein kleines Problemchen, meine Procedure A soll die Procedure B ausführen
dieals Parameter übergeben wird:

Delphi-Quellcode:

var B: procedure(); stdcall;

procedure A(Proc: Pointer);
begin
 // und nu starte "B"
end;

Wie macht man das ?

[3_of_8]

Probier mal TProcedure(proc);

[Apollonius]

Du musst einen Typen für den Funktionszeiger deklarieren. Du kannst nun entweder den Parameter als von diesem Typ (statt als Pointer) deklarieren oder du castest in der Routine.

[turboPASCAL]

Sorry, ich habe das obere Beispiel "verhauen". Liegt bestimmt am Wetter. ;)

Richtiger wird es so:

Delphi-Quellcode:

uses
  Windows;

type
  TProcedure = procedure;  // no SysUtils


procedure MyProcNow; stdcall;
begin
  MessageBox(0, 'Hallöhle !', '*', MB_OK);
end;

procedure CallMyProc(MyProc: Pointer);
begin
  TProcedure(MyProc);
end;

BEGIN
  CallMyProc(@MyProcNow);
END.

Geht das nur über den Typecast ? Irgend wie schauts komisch aus. :mrgreen:

[SubData]

alternativ:

Delphi-Quellcode:

procedure CallMyProc(MyProc: TProcedure); 
begin 
  MyProc; 
end;

[turboPASCAL]

Danke. Aber ich wollte das TProcedure los werden.

Ist jetzt aber nicht weiter schlim.

[Medium]

Folgendes dürfte auch noch hin hauen, ist aber kaum hübsch, und sobald Parameter ins Spiel kommen wirds etwas komplizierter:

Delphi-Quellcode:

procedure CallMyProc(MyProc: Pointer);
asm
  CALL EAX
end;

;)

[turboPASCAL]

Ja, genau dass ist das warum ich nicht CALL nutze.
Die Procedure und oder Funktion kann ggf. Parameter enthalten.

[alzaimar]

Was spricht denn gegen 'TProcedure' in dem Prozedurkopf?
[edit] achso, wegen der Parameter... [/edit]

[x] Was Du machst, ist schon pervers, das weisst du, oder? :zwinker:

[turboPASCAL]

Nein, ich weis von nichts. :gruebel:

[alzaimar]

Na gut, dann stell ich mich eben dumm:

Wieso willst Du kein 'TProcedure' im Prozedurkopf, a.k.a. 'Procedure Foobar(Blup : TProcedure)'

[3_of_8]

Wenn sie Parameter enthalten kann, wie soll das denn dann überhaupt gehen? Was willst du ihr denn übergeben, wenn du die Signatur nicht kennst? Und call sollte man schon allein deshalb nicht verwenden, weil es nicht portabel ist.