我的图象是JPEG文件,是放在远程一个固定IP电脑下面的一个目录,我如何读取这个JPEG文件呢?哪位给一段程序?学习一下(100分)

  • 主题发起人 主题发起人 billrobin
  • 开始时间 开始时间
B

billrobin

Unregistered / Unconfirmed
GUEST, unregistred user!
我的图象是JPEG文件,是放在远程一个固定IP电脑下面的一个目录,我如何读取这个JPEG文件呢?哪位给一段程序?学习一下
 
固定ip的电脑架设web服务器或ftp服务器,然后使用ftp或http get 即可

或者自己开发一个客户端程序+服务伺服程序,两者进行http通讯。亦可
 
uses
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,IdHTTP;

function DownLoadFromURL(URL : String;LocalFile: String): Integer;
var
idHTTP: TIdHTTP;
Fs : TFileStream;
begin
Result := -1;
try
idHTTP := TIdHTTP.Create(nil);
try
Fs := TFileStream.Create(LocalFile,fmCreate);
try
idHTTP.Get(URL,Fs);
finally
FS.Free;
end;
finally
idHTTP.Free;
end;
except
end;
end;
//使用部分
procedure TForm1.Button1Click(Sender: TObject);
begin
DownLoadFromURL('http://www.delphibbs.com/delphibbs/dfwlogo.gif','C:/1.Gif');
end;
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部