1
我很新的DLL對象，我到處搜索，找不到正確的答案。 我正在做一個微軟RMS的小插件，它會自動調用我的dll中的函數Process，IDispach參數傳遞當前會話的詳細信息。COM對象和不同版本的DLL
我使用的接口從QSRules.dll（組件>導入>組件>輸入庫...添加到項目）。 它創建TLB與所有的引用等
與軟件2.01版完美的作品，但試圖利用對2.02版相同的功能，當它與「接口不支持」崩潰文件。 QSRules.dll有更新的版本和所有類的GUID是不同的。
我試圖與休耕代碼：
procedure TRefreshScreenRefreshScreen.Process(const Session: IDispatch);
begin
if Supports(Session, QSRules_TLB_2_0_0_151.SessionClass) then
Begin
CodeSite.Send(csmLevel1, '(Session as SessionClass).Cashier.Name', (Session as QSRules_TLB_2_0_0_151.SessionClass).Cashier.Name);
CodeSite.Send(csmLevel1, '(Session as SessionClass).Cashier.Number', (Session as QSRules_TLB_2_0_0_151.SessionClass).Cashier.Number);
end else
if Supports(Session, QSRules_TLB_2_0_0_105.SessionClass) then
Begin
CodeSite.Send(csmLevel1, '(Session as SessionClass).Cashier.Name', (Session as QSRules_TLB_2_0_0_105.SessionClass).Cashier.Name);
CodeSite.Send(csmLevel1, '(Session as SessionClass).Cashier.Number', (Session as QSRules_TLB_2_0_0_151.SessionClass).Cashier.Number);
end
end;
是有4個或5個不同版本的DLL都具有不同的GUID的BU 98的代碼％的所有的人之間的相同。 這樣做是不合理的乘法代碼。
有什麼辦法可以縮短它嗎？
我也試過
procedure TRefreshScreenRefreshScreen.Process(const Session: IDispatch);
var
_Session: SessionClass;
begin
if Supports(Session, QSRules_TLB_2_0_0_151.SessionClass) then
_Session = (Session as QSRules_TLB_2_0_0_151.SessionClass)
else if Supports(Session, QSRules_TLB_2_0_0_105.SessionClass) then
_Session = (Session as QSRules_TLB_2_0_0_105.SessionClass);
with _Session do
Begin
CodeSite.Send(csmLevel1, '_Session.Cashier.Name', Cashier.Name);
CodeSite.Send(csmLevel1, '_Session..Cashier.Number', Cashier.Number);
End;
end;
但這不起作用，因爲變量的類型只能從唯一的單位進行分配。
任何幫助表示讚賞！
聽起來像一個非常可怕的COM接口！你不能使用單一版本的DLL來分發你的應用程序，並且使用並行COM來確保你得到你想要的版本。支持多個版本將是可怕的。你會如何測試？ –