Tobit DvISE Programmierung

[sx2008]

Zitat von oki:

Imho sollte damit AbsenderFax aber eher das Object Field zugewiesen werden. Um den gespeicherten Wert zu erhalten sollte .Value dann doch wieder notwendig sein.

Du hast recht, es müsste so aussehen:

Delphi-Quellcode:

var
   felder : Fields;
begin
...
for m := 0 to oMessageItems.Count-1 do begin 
   oFaxItem := oMessageItems.Item(m) as FaxItem; 

   felder := oFaxItem.Fields as Fields;

   AbsenderFax := felder.Item('SRFROM').Value; 
end;

[DelphiPeter]

Hallo ihr 2!

Danke für eure Hilfe. Ich habe es natürlich direkt ausprobiert, aber "es funktioniert nicht". Weil ich darauf nun auch keine Erklärung mehr habe, habe ich nochmal einen Screenshot gemacht.

Habt ihr den Code mal bei euch ausprobiert? Denn wenn er bei euch geht dann müsste ja bei mir irgendwas falsch laufen.

Gruß,
Peter

[Eppos]

welche Version der tobit API benutzt du?

[DelphiPeter]

Die aktuellste API, zu David.Zehn!

[gmc616]

Ist das Value eines FieldItems nicht Variant?

Delphi-Quellcode:

const 
  Field_SRFrom = $80008039; // Unicode String Laut DvAPI-Doku
var
  oVar :Variant;
  sFrom : String;
  felder : Fields; 
begin

  oVar := felder.Item(SRFrom).Value;
  sFrom := oVar;

Nach meiner Erfahrung macht es auch einen Unterschied, ob du auf MessageItem oder MessageItem2 zugreift.
Ich verwende in meinem Programmen eigentlich ausschließlich das MessageItem2-Objekt, da hier die Fields eigentlich immer korrekt gefüllt sind. Und grade FAXe gehören mMn in der DvAPI zu den Dingen die sich eigenartig verhalten.

Versuch doch mal den Absender eines Faxes über MessageItem2 zu ermitteln. Das wird funktionieren.

[DelphiPeter]

Oh Man

Ich habe eben gesehen, das ich oFields den Typ IDispatch zugewiesen hatte... dann kann es ja nicht funktionieren.

Also dieser Weg hier wird jetzt auch von Delphi aktzeptiert.

Delphi-Quellcode:

...
  oFields := oFaxItem.Fields as Fields;
  dbFrom := oFields.Item('SRFrom').Value;
...

Werde es sobald ich wieder in der Firma bin testen.

Vorerst möchte ich mich dann bei allen Helfern noch einmal für das Engagement bedanken.


Gruß, Peter