請教各位前輩!! 如何把 檔案(TFileStream)變成一個String傳送後再還原?? TFileStream 是否可以 轉為 String , 及之後再還原?? 還是有其它物件?? 謝謝各位前輩!! 感動 這網站讓我感動!!

試試:

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
  ss: TStringStream;
begin
  fs := TFileStream.Create('c:\value.txt', fmOpenRead);
  try
    ss := TStringStream.Create('');
    try
      ss.CopyFrom(fs, fs.Size);
      // ...
    finally
      ss.Free;
    end;
  finally
    fs.Free;
  end;
end;    procedure TForm1.Button2Click(Sender: TObject);
var
  fs: TFileStream;
  ss: TStringStream;
begin
  ss := TStringStream.Create('test');
  try
    fs := TFileStream.Create('c:\value.txt', fmCreate or fmOpenWrite);
    try
      fs.CopyFrom(ss, ss.Size);
    finally
      fs.Free;
    end;
  finally
    ss.Free;
  end;
end;

-- 向 KTop 的弟兄們致敬!

又是 hagar 大大,真是感謝....... Delphi 功能真多........

但還有問題請教,因我要用於RemoteDataModule 的 Funciton 所以必轉為 WideString ,但這樣存入的檔案就會與原本不同了 但文字正確?? procedure TJFText1Server.SendFile(const FieldName, DataString: WideString); 謝謝各前輩!! --------------------------------- 測試 Funciton procedure TMainForm.SnedFileWideString(FiendName:WideString ;FString :WideString); var newss:TStringStream; newFs : TFileStream; dataString : String; begin dataString :=FString; newss:= TStringStream.Create(dataString); newfs := TFileStream.Create('C:\Temp2\' FiendName, fmCreate); newfs.CopyFrom( newss, newss.size); newfs.Free; newss.Free end; procedure TMainForm.Button3Click(Sender: TObject); var fs: TFileStream; ss: TStringStream; dataString :String; DataWideString :WideString; begin fs := TFileStream.Create('C:\Temp1\a.mdb', fmOpenRead); ss := TStringStream.Create(''); ss.CopyFrom(fs, fs.Size); dataString:=ss.DataString ; fs.Free; ss.Free; DataWideString:=dataString; SnedFileWideString( 'a.mdb',DataWideString); ShowMessage('完成') end;