請教各位先進 : 先描述一下我的問題,我想將一個 Binary File 轉成 Stream 或是直接以變數(或 TByteDynArray) 的方式將參數傳入 COM Interface 中 Method 內的參數.. 請問有什麼適合 COM/COM 宣告的變數可以直接傳遞參數?? 或是有另外打包的方法?? 目前有一超爛解,使用 TClientDataSet ,利用 TBlobField 打包 ... 個人覺得實在是太不優雅了... ---- 我只會兩件事,這也不會,那也不會 眼見不一定為真 ----

利用Variant型態

//將Stream資料轉入variant
procedure StreamToVariant(Source:TStream;var Destination:Variant);
var  p:^ByteArray;
begin
 Destination:=VarArrayCreate([0,Source.size-1],VarByte);
 P:=VarArrayLock(Destination);
 Source.Seek(0,soBeginning);
 Source.ReadBuffer(p^,Source.size);
 VarArrayUnLock(Destination);
end;    //將Variant資料轉入Stream
procedure VariantToStream(Source:Variant;var Destination:TStream);
var  p:^ByteArray;
     pos :Int64;
begin
 P:=VarArrayLock(Source);
 pos := Destination.Seek(0,soBeginning);
 Destination.WriteBuffer(p^,VarArrayHighBound(Source,1) 1);
 Destination.Seek(pos,soBeginning);
 VarArrayUnLock(Source);
end;
...
var
 s:TStream;
 v:Variant;
 aComInft : IXXXX;
begin
 aComInft := CoXXX.Create;
 s := TFileStream.Create('Filename1.xxx');
 try
  StreamToVariant(s,v);
  aComInft.SomeMethod(v); 
 finally
  s.Free;
  aComInft := nil;
 end;    end;    

要注意的是，若你設計的COM支援Dual Interface,妳如果用LateBinding呼叫物件方法時，若該方法含Variant參數，建議轉型成IDispPatch介面呼叫，如此可避免某些狀況Delphi誤傳Variant參數 混心雜欲 棄修身~唉

------
唉~

引言: 利用Variant型態

//將Stream資料轉入variant
procedure StreamToVariant(Source:TStream;var Destination:Variant);
var  p:^TByteArray;
begin
 Destination:=VarArrayCreate([0,Source.size-1],VarByte);
 P:=VarArrayLock(Destination);
 Source.Seek(0,soBeginning);
 Source.ReadBuffer(p^,Source.size);
 VarArrayUnLock(Destination);
end;    //將Variant資料轉入Stream
procedure VariantToStream(var Source:Variant;Destination:TStream);
var  p:^TByteArray;
     pos :Int64;
begin
 P:=VarArrayLock(Source);
 pos := Destination.Seek(0,soBeginning);
 Destination.WriteBuffer(p^,VarArrayHighBound(Source,1) 1);
 Destination.Seek(pos,soBeginning);
 VarArrayUnLock(Source);
end;
...
var
 s:TStream;
 v:Variant;
 aComInft : IXXXX;
begin
 aComInft := CoXXX.Create;
 s := TFileStream.Create('Filename1.xxx');
 try
  StreamToVariant(s,v);
  aComInft.SomeMethod(v); 
 finally
  s.Free;
  aComInft := nil;
 end;    end;    

要注意的是，若你設計的COM支援Dual Interface,妳如果用LateBinding呼叫物件方法時，若該方法含Variant參數，建議轉型成IDispPatch介面呼叫，如此可避免某些狀況Delphi誤傳Variant參數 混心雜欲 棄修身~唉

Speedup Sir: 紅色的地方應該是您筆誤,Fix 後 Code 執行正確無誤,有幾個問題想請教 Sir,就是 : 1. TByteArray 的原型宣告為 : TByteArray = array[0..32767] of Byte; 我上傳一個 Binary File 超過 80 K ,我覺得應該會出現存取超出陣列範圍的錯誤,但 Run 的結果卻沒有,是否我觀念有誤? 2. Dual Interface 是指一個 COM Object 上宣告兩個 interface 嗎?? 可否舉例說明一下 LateBinding 手法?? 3. 有哪些狀況 Delphi 可能會誤傳Variant參數 抱歉,我是寫 COM 的新手,很多很問題待釐清,感謝 Speedup Sir 為我詳細解說之前的許多問題.... ---- 我只會兩件事,這也不會,那也不會 眼見不一定為真 ----

引言: 1. TByteArray 的原型宣告為 : TByteArray = array[0..32767] of Byte; 我上傳一個 Binary File 超過 80 K ,我覺得應該會出現存取超出陣列範圍的錯誤,但 Run 的結果卻沒有,是否我觀念有誤? 2. Dual Interface 是指一個 COM Object 上宣告兩個 interface 嗎?? 可否舉例說明一下 LateBinding 手法?? 3. 有哪些狀況 Delphi 可能會誤傳Variant參數

1.不會，因為VarArrayLock(V) 傳回的指標是Variant變數所配置記憶體的指標，而不是array[0..32767] of Byte 2.Dual Interface 是指該COM物件同時支援vTable(就是你設計的Interface啦)和IDisptach(用來作LateBinding) 簡單的說，當我們在程式中要呼叫Dll，COM的方法時，基本上一定要有該方法的宣告(就是Interface啦)，Compiler才能決定要如何傳遞參數(再這種機制下你一定要取得該COM物件的TypeLibrary才能用它)，但COM若有提供IDispatch介面，則可在執行期才決定要如何傳遞參數(這就是所謂的lateBinding,這種呼叫方式不需事先uses XXX_TLB) 3.不知,在需要late_binding環境下(例如用SocketConnection),反正所有LateBinding全部轉型IDisp_xxx呼叫，即可閃掉此問題，並增加效率 混心雜欲 棄修身~唉