為什么這樣寫生成的檔案提示格式錯誤,里面解碼出來的都是亂碼?請高手給個思路!
procedure TForm1.Button5Click(Sender: TObject);
var
m1:TMemoryStream;
m2:TFileStream;
SS:TStringStream;
begin
m1:=TMemoryStream.Create;
SS:=TStringStream.Create(Memo1.Lines.Text);
DecodeStream(ss,m1);
m2:= TFileStream.Create('E:\pdf.pdf', fmCreate);
m2.Position:=0;
m2.Write(m1,m1.Size) ;
m1.Free;
m2.Free;
轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/46038.html
標籤:VCL組件開發及應用
上一篇:怎樣獲取DBEdit的值
