Delphi 인터넷에서 파일 다운로드
4169 단어 internet
오늘 경매 시스템을 할 때 인터넷 상황을 고려하여 경매품의 모든 정보를 본 컴퓨터에 다운로드해야 하기 때문에 경매품 사진을 포함하여 인터넷에서 파일을 다운로드하는 기능을 실현해야 한다.
다음은 코드 세그먼트입니다.
private
function DownloadFile(SourceFile, DestFile: string): Boolean;
procedure URL_OnDownloadProgress(Sender: TDownLoadURL;
Progress, ProgressMax: Cardinal;
StatusCode: TURLDownloadStatus;
StatusText: String; var Cancel: Boolean) ;
{ Private declarations }
.
function TFrameChannel.DownloadFile(SourceFile, DestFile: string): Boolean;
var
hasError: boolean;
begin
hasError:=false;
with TDownloadURL.Create(self) do
try
URL:=SourceFile;
FileName := DestFile;
OnDownloadProgress := URL_OnDownloadProgress;
ExecuteTarget(nil) ;
except on e: Exception do begin
FormMain.SetStatusInfo(e.Message);
Free;
hasError:=true;
end;
end;
Result := not hasError;
end;
procedure TFrameChannel.URL_OnDownloadProgress;
begin
Application.ProcessMessages;
end;
：
ofname:='http://www.aaa.com/a.jpg';
nfname:='images\.jpg';
if not DownloadFile(ofname, nfname) then
showMessage('Error')
end
showMessage('OK');주: 상기 프로그램은 큰 파일을 다운로드하는 과정에서 잠기지 않으며, URL 에서OnDownloadProgress 함수에서 다운로드 진행률을 표시하기 위해 매개 변수를 사용합니다.내 프로그램은 필요없기 때문에 쓰지 못했다.
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
인터넷이란 무엇입니까? 데이터는 네트워크를 통해 어떻게 전송됩니까?웹은 인터넷에 액세스할 수 있는 많은 응용 프로그램 중 하나이며 웹 브라우저는 웹 페이지를 보고 다운로드할 수 있는 컴퓨터 프로그램일 뿐입니다. 인터넷은 분산된 네트워크 네트워크(컴퓨터)입니다. 연결된 각 컴퓨터에는...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
