ProcessCallback aus DLL

[Steran]

so...da keiner geantwortet hat, erlaube ich mir einfach einen Doppe-Doppelpost mit der Lösung (evtl. hilfts ja jmd. der die suche benutzt und ein ähnliches prob hat!)


nach den uses:

Code:

  type
  TForm1 = class(TForm, IWinGrabProcessCallBack)
   .
   .
   .
  private
    { Private-Deklarationen }
     procedure OnMessage(const aMessage: WideString); safecall;
     procedure OnStateChange(const aName: WideString; const aState: WideString); safecall;

die proceduren müssen genauso heissen, wie sie im IWinGrabProcessCallBack deklariert wurden!

beim GrabStart geben wir dann als Callback die Klasse an, in der das IWinGrabProcessCallBack Interface eingebunden wurde:

z.B.

Code:

Grab := Form1.WinGrabLibrary.StartMuxGrabEx('192.168.0.25', 68, 69, 'C:\out.m2p', Form1);

im Programm müssen nun die oben deklarierten proceduren vorhanden sein, welche die Aktion ausführen für onMessage z.B. (procedure 1:1 aus wingrabz kopiert!):

Code:

procedure TForm1.OnMessage(const aMessage: WideString); safecall;
var s : string;
begin
  s := '';
  DateTimeToString(s, 'hh:nn:ss.zzz', Now);
  s := Format('%s %s', [s, aMessage]);
  frmStates.mmoMessages.Lines.Insert(0, s);
end;

MfG

Steran