Delphi parte:Come passare l'oggetto interfacciato alla chiamata della funzione Script Pascal?
Ho una classe con l'evento e da quell'evento ho bisogno di chiamare una procedura che passa l'oggetto interfacciato ad esso. Funziona bene con Delphi ma ho problemi a dichiararlo in Pascal Script.
Per lo sfondo - l'interfaccia IGPGraphics
è una parte della Delphi GDI+ library
e senza metodi è definito in questo modo:
type
IGdiplusBase = interface
['{24A5D3F5-4A9B-42A2-9F60-20825E2740F5}']
IGPGraphics = interface(IGdiPlusBase)
['{57F85BA4-CB01-4466-8441-948D03588F54}']
Quello che segue è solo un pseudocodice Delphi semplificata di quello che ho bisogno di fare in Pascal Script:
type
TRenderEvent = procedure(Sender: TObject; const GPGraphics: IGPGraphics) of object;
TRenderClass = class(TGraphicControl)
private
FOnRender: TRenderEvent;
public
property OnRender: TRenderEvent read FOnRender write FOnRender;
end;
// when the TRenderClass object instance fires its OnRender event I want to call
// the RenderObject procedure passing the IGPGraphics interfaced object to it; I
// hope I'm doing it right, I'm just a newbie to this stuff - but it works so far
// in Delphi (since I didn't get it to work in Pascal Script)
procedure TForm1.RenderClass1Render(Sender: TObject; const GPGraphics: IGPGraphics);
begin
RenderObject(GPGraphics, 10, 10);
end;
// what I need in Pascal Script is between these two lines; just pass the interface
// object from the event fired by component to the procedure called from inside it
procedure RenderObject(const GPGraphics: IGPGraphics; X, Y);
begin
// and here to work with the interfaced object somehow
end;
Pascal script parte la compilazione:
Il mio obiettivo è di avere la classe con evento disponibile in Pascal Script e di passare quell'oggetto interfacciato a quella procedura proprio come sopra, quindi il primo che ho provato a dichiarare per la compilazione è il tempo (ma non lo sono nemmeno sicuro se questo è il modo giusto per farlo):
// the interface
PS.AddInterface(Cl.FindInterface('IUnknown'), StringToGuid('{57F85BA4-CB01-4466-8441-948D03588F54}'), 'IGPGraphics');
// the type for the event
PS.AddTypeS('TRenderEvent', 'procedure(Sender: TObject; const GPGraphics: IGPGraphics)');
// and the class with the event itself
with PS.AddClassN(PS.FindClass('TGraphicControl'), 'TRenderClass') do
begin
RegisterProperty('OnRender', 'TRenderEvent', iptrw);
end;
Pascal runtime script parte:
dove sto sicuramente perso è la parte runtime. Io non riesco a capire come ottenere l'oggetto interfacciato dallo stack delle chiamate e passarlo al mio procedimento RenderObject:
function RenderClassProc(Caller: TPSExec; Proc: TPSExternalProcRec; Global,
Stack: TPSStack): Boolean;
var
PStart: Cardinal;
begin
PStart := Stack.Count-1;
Result := True;
if Proc.Name = 'RENDEROBJECT' then
begin
// how do I get the interfaced object from Stack (or whatever else) and pass
// it to the RenderObject proc here ? I can't find anything related about it
// except functions that has no parameter index
RenderObject(Stack.Get ?, Stack.GetInt(PStart-2), Stack.GetInt(PStart-3));
end;
end;
E la domanda è:
Qualcuno mi può suggerire come definire correttamente la compilazione e la parte runtime per questo caso o correggermi in qualche modo passando l'oggetto interfacciato?
P.S. mi dispiace per quel tag Inno-Setup ma forse qualcuno da lì ha provato a personalizzare InnoSetup in questo modo.
Grazie mille!