CreateOleObject(

[ems]

Hallo allerseits und einen freundlichen Gruß in die Runde

Ich versuche einen einfachen OLE-Aufruf, welcher unter D7 läuft, mit Lazarus 2.10 auszuführen. Leider bekomme ich immer eine Fehlermeldung, mit der ich nicht wirklich was anfangen kann.

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
   goTEST : OLEVariant;
   xtext : String;
begin
  try
   goTEST := CreateOleObject('TEST.EpsonTEST');
   xtext := goTEST.KindOfSelling(5);          
   ...

"Datentyp stimmt nicht überein!"

KindOfSelling( liefert einen String. Unter D7 funktioniert das auch problemlos.

Hat jemand einen Tip für mich

Vielen Dank im Voraus.

[theo]

Als Linuxer habe ich davon nicht viel Ahnung, aber versuch's doch mal mit

Code: Alles auswählen

xtext : WideString;

oder Variant?

[ems]

Hallo Theo,
funktioniert leider nicht.

Beim compilieren kommt nun die Meldung:

Code: Alles auswählen

unit1.pas(60,21) Note: Call to subroutine "operator :=(const source:OleVariant):AnsiString;" marked as inline is not inlined

Kann damit aber leider auch nichts anfangen

[sstvmaster]

https://forum.lazarus.freepascal.org/in ... #msg384793

[ems]

Danke für die ganzen Hinweise. Habe es nun wie folgt gelöst.

Code: Alles auswählen

var
   xText : Variant;
begin
   ...
   xText := goTSE.KindOfSelling(int(5));
   ShowMessage(VarToStr(xText));   
   ...
end;

[PascalDragon]

"Datentyp stimmt nicht überein!"

KindOfSelling( liefert einen String. Unter D7 funktioniert das auch problemlos.

Mit dem kommendem FPC 3.2.2 sollte das behoben sein.

Beim compilieren kommt nun die Meldung:

Code: Alles auswählen

unit1.pas(60,21) Note: Call to subroutine "operator :=(const source:OleVariant):AnsiString;" marked as inline is not inlined

Kann damit aber leider auch nichts anfangen

Die Meldung ist für dein Problem nicht relevant. Sie teilt dir einfach nur mit, dass der Compiler eine Optimierung, die er hätte machen sollen, nicht gemacht hat.

[ems]

Danke.