如何使用INET下载文件?(200分)

  • 主题发起人 主题发起人 87150
  • 开始时间 开始时间
8

87150

Unregistered / Unconfirmed
GUEST, unregistred user!
Var
S:OleVariant;
begin
S:=Inet1.OpenURL('HTTP://192.168.100.181/l.JPG', icByteArray);
//如何把S保存到一个文件中
End;
//因用FTP或HTTPGET无法下载, l.JPG存在于服务器内存,动态获取的
 
var S:OleVariant;
buff:array of char;
a:TBitmap;
begin
S:=Inet1.OpenURL('HTTP://192.168.100.181/l.JPG', icByteArray);
SetLength(buff,length(s));
StrLCopy(Buffer, S, length(s));

再把缓冲区写入文件



 
类型错误 编译出错
 
多人接受答案了。
 
后退
顶部