WinGrabEngine.dll StateMessages

[Steran]

Hallo!

Kann mir bitte jemand ein kurzes Delphi-Bsp. posten, welches mir zeigt, wie ich die StatusMessages und ProcessCallback-Messages in einen String geliefert bekomme!

Aufnehmen tu ich mit den EX funktionen...hab halt nur das Problem, dass ich es nicht schaffe die Statusinfos abzufragen!

Die VB-Bsp. im Forum hab ich mir schon angeschaut, helfen mir aber leider nicht weiter

Danke

mfg

Steran

[Steran]

so...da keiner geantwortet hat, schon mehrere User das Problem hatte und es nun endlich gefunzt hat, erlaube ich mir einfach einen Doppelpost mit der Lösung ;-)


nach den uses:

Code: Alles auswählen

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

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

z.B.

Code: Alles auswählen

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: Alles auswählen

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