系统winxp delphi6.0var
myjpeg1:TJPEGImage;
MS:TMemoryStream;begin//从ftp调取图片 myjpeg1:=TJPEGImage.Create;
MS:=TMemoryStream.Create; //使用流
idftp1.Connect;
idftp1.Get(tpdir+'\'+picturename+'.jpg',MS);
idftp1.Disconnect;
Ms.SaveToFile('C:\'+picturename+'.jpg');
myjpeg1.LoadFromFile('C:\'+picturename+'.jpg');
imageX.picture.Assign(myjpeg1);
myjpeg1.Free;
Ms.Free;
end;//以上可以运行正常,但是我是想直接从流中读出,而不是从文件读出
将红色部分改成 myjpeg1.LoadFromStream(Ms);则运行出错,编译可以通过,不解?
myjpeg1:TJPEGImage;
MS:TMemoryStream;begin//从ftp调取图片 myjpeg1:=TJPEGImage.Create;
MS:=TMemoryStream.Create; //使用流
idftp1.Connect;
idftp1.Get(tpdir+'\'+picturename+'.jpg',MS);
idftp1.Disconnect;
Ms.SaveToFile('C:\'+picturename+'.jpg');
myjpeg1.LoadFromFile('C:\'+picturename+'.jpg');
imageX.picture.Assign(myjpeg1);
myjpeg1.Free;
Ms.Free;
end;//以上可以运行正常,但是我是想直接从流中读出,而不是从文件读出
将红色部分改成 myjpeg1.LoadFromStream(Ms);则运行出错,编译可以通过,不解?
解决方案 »
- delphi7怎么用ADO控件连接VFP的数据库文件
- 在用comboBox做查询时出现的问题,请各位看看!
- 在网页中运行的OCX,怎么获得自身的版本号?
- 关于数据库备份的问题
- 求救!
- 如何用TcpClient/TcpServer发送流和接收流TMemoryStream
- 急!急!两层中Oracle同样出现乱码!
- 我有一个报表,列数很多,想分页打印,像Excel那样,如何解决?
- 各位高手注意了,如何实现文件菜单里的重新登录?因为涉及到不同的权限问题,我用代码使程序重新createform()主窗体,但是这样也不行!请执教!!
- 这样的错误是如何产生的?
- 谁有MS-DOS 7.1下的xcopy.exe文件
- setcapture 是开始监控鼠标,那哪个函数是停止监控的?
myjpeg1.LoadFromStream(Ms);