Zuweisung von Variablen verschiedenen Typs

[windmaster]

Hallo,

ich muss ein Prüfgerät mittels DCOM automatisieren. Grundsätzlich funktioniert es schon gut.

Leider hat der Prüfanlagenhersteller an einer Stelle eine Methode (Order) für zwei Typen(IOrder und IBatch) zusammengefasst:

aus Handbuch:

HRESULT Order([out, retval] IOrder **ppOrder):
Get pointer to Order object
Order object manages interfaces IOrder and IBatch

In einem Beispiel in Visual Basic funktioniert es so:

Private Sub btnCreateBatch_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles btnCreateBatch.Click

Dim m_IOrder As QvDefinition.IOrder
Dim m_IBatch As QvDefinition.IBatch

m_IOrder = m_QvAutomation.Order //Get pointer to Order object
m_IBatch = m_IOrder
...


In Delphi erhalte ich beim Übersetzen den Fehler "Inkompatible Typen: 'IOrder' und 'IBatch'":

Delphi-Quellcode:

procedure TForm1.BtnCreateBatchClick(Sender: TObject);
var m_IOrder : iorder;
    m_IBatch : IBatch;
begin
  m_IOrder := m_QvAutomation.Order;       //Get pointer to Order object
  m_IBatch := m_Iorder;                   //[Fehler] TestU.pas(244): Inkompatible Typen: 'IOrder' und 'IBatch'      
  {...}                               
end;

Wie kann ich in Delphi die Variable unterschiedlichen Typs zuweisen wie im Basicprogramm?

Viele Grüße
windmaster

[mkinzler]

Verwende einen übergeordneten Typ oder einen Variant

Btw. Delphi ist halt streng typisiert

[Uwe Raabe]

Delphi-Quellcode:

m_IBatch := m_IOrder as IBatch;

sollte auch compilieren. Ob es dann auch funktioniert musst du ausprobieren.

[windmaster]

hat so funktioniert... (Ich war wohl krank als der Operator as dran war)

Besten Dank für die schnelle und gute Antwort.

Viele Grüße
windmaster