請問如何將檔案放到OleVariant上 如下: var Fstm : TFileStream ; outole: OleVariant; begin Fstm := TFileStream.Create('C:\WINDOWS\Desktop\t.tif' ,fmShareDenyRead ); try //如何將檔案放入outole finally Fstm.Free; end;

我沒有試過可不可行,你可以試試以下的方式  

var
 Fstm : TFileStream ;
 outole: OleVariant;
 leng : integer ;
 s : string ;
begin      Fstm := TFileStream.Create('C:\WINDOWS\Desktop\t.tif' ,fmShareDenyRead );
  try      //如何將檔案放入outole
  Fstm.Position := 0 ;
  SetLength(s,Fstm.size);
  Fstm.ReadBuffer(Pointer(s)^,Fstm.Size);
  Fstm.Position := 0 ;
  outole := s ;
  finally
  Fstm.Free;      end    

---------------------- 一切有為法 如夢幻泡影 如露亦如電 應做如是觀 ----------------------

依據在下的經驗, 將 Binary 轉型為 Variant Binary 的特殊字元會被重新編碼!! 因而造成內容 "失真" 所以在轉型為 Variant 之前, 可先用如 Indy 的 encode 工具 將那 "s" 先 encode 後, 再 outole := s 當然, 反之則要再 decode

liorex 兄: 你的方法跟我的差不多 不過只能用在存文字上 prelude0620 兄: 你的提議先當備案 不過可以取出一定有可以寫入的方法ㄅ axsoft 版主大大轉貼的 用Delphi 6開發ASP上組件詳解 有取出方法 應該也有寫入方法ㄅ

以下的範例, 是在下曾經做的 將一個 TClientDataSet, 利用 TStringStream 和編碼 轉為 Delphi 的 string 我想一般檔案, 即使是非純文字檔 應該只要再經過簡單加工即可 var strm: TStringStream; str: string; begin strm := TStringStream.Create(str); try // Fcds 是一個 TClientDataSet; with Fcds do begin EmptyDataSet(); Append(); FieldByName('SA').AsString := FSA; FieldByName('VOLNO').AsString := FVolNo; FieldByName('SEX').AsString := FSex; FieldByName('UNTCLOTH').AsString := FUntCloth; FieldByName('GIVE').AsInteger := FGive; FieldByName('RANK').AsString := FRank; FieldByName('ENDDATE').AsString := FEndDate; Post(); end; Fcds.SaveToStream(strm); strm.Position := 0; // Encode_String_HEX 是一位同事寫的, 簡易編碼的 function Result := Encode_String_HEX(strm.DataString); finally if Assigned(strm) then strm.Free(); end;

你好： 你試試吧 < class="code"> function StreamToByteArrayVariant (s : TStream) : OleVariant; var Size : longint; Data : Pointer; Tmp : Variant; begin Size := S.Size; Tmp := VarArrayCreate([0, Size - 1], varByte); Data := VarArrayLock (Tmp); try S.Position := 0; S.ReadBuffer(Data^, Size); finally VarArrayUnLock (Tmp); end; result := Tmp; end;