Question

Delphi中如何将从socket接收的数据流保存为JPEG文件？

Answer 1

这个简单 创建一个内存流 然后保存为图片就好了 假设数据流为 tempstring
var
mms: tmemorystream;
i: integer;
begin
mms := tmemorystream.create;
mms.Size := 0;
mms.Position := 0;
for i := 1 to Length(tempstring) do mms.Write (tempstring[I], 1);
mms.SaveToFile(‘文件路径');
mms.free;
end;

追问

这个是用内存流吧？如果要用文件流怎么写？谢谢了啊？

追答

var
mfs: tfilestream;
i: integer;
begin
mfs := tfilestream.Create('文件路径', fmcreate);
mfs.Size := 0;
mfs.Position := 0;
for i := 1 to Length(tempstring) do mfs.Write (tempstring[I], 1);
mfs.free;
end;

//其实差不多的啦

备注：还有一点要注意，这两种方法 socket 过来的都是string类型的