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: