Ok, verstanden.
Hab gerade etwas rumprobiert und gesehen, dass in deinem Beispiel MyMSMQBrokerClient.CreateConnection einen Zeiger auf IConnection zurückgibt (denke ich).
Doch ich bekomme den Inhalt für "CreateConnection" nicht hin. Was muss ich konrekt reinschreiben, um eine IConnection zurückzubekommen?
Danke für eure Geduld
EDIT
Ich glaube, ich habe es!
Interfaces - Die Klasse TMyMQ wird gelöscht, da überflüssig (wie vermutet)
Delphi-Quellcode:
IMy_MQ = interface
...
...
end;
TMy_MSMQ = class(TInterfacedObject, IMy_MQ)
...
...
end;
und hier kommt in der programmweiten Verwendung der Knackpunkt. Es wird nicht TMy_MQ erstellt, sondern direkt eine Variable IMy_MQ, welche dann via TMy_MSMQ.Create mit dem Interfacezeiger gefüllt wird:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
mq: IMy_MQ;
begin
mq:=TMy_MSMQ.Create;
mq.SendMessage;
end;
Richtig? Es funktioniert jedenfalls. Aber hatte meine erste Version ja auch