Q&A

  • [질문] 아래 이미지 저장에 이어 이번엔 에러처리 관련 질문있습니다~!?
소울해커님의 도움으로 이미지 저장은 잘되고 있습니다.
아래 같은 식으로 URL 이미지를 저장하고 있습니다.
<!--CodeS-->
procedure TForm_Pic.GetWebImage(AImageURL: String);
var
ImageStream: TMemoryStream;
URI: TidURI;
ImagePath: String;
JPI: TJPEGImage;
HTTP: TIdHTTP;
begin
  ImageStream := TMemoryStream.Create;
  HTTP := TIdHTTP.Create(Self);
try
  HTTP.Get(AImageURL, ImageStream);
  ImageStream.Position := 0;
  JPI := TJPEGImage.Create;
try
  JPI.LoadFromStream(ImageStream);
finally
  Image1.Picture.Assign(JPI);
  ImageURL := TrimRight(ImageURL);
  cutURL := RightStr(ImageURL,17);
  JPI.Free;
end;
finally
  ImageStream.SaveToFile('.\image\'+ cutURL);
  ImageStream.Free;
  HTTP.Free;
end;

end;

procedure TForm_Pic.Button1Click(Sender: TObject);
var
LineNo : Integer;
begin

   for LineNo := 0 to ListBox1.Items.Count -1 do
  begin
    ImageURL := ListBox1.Items[LineNo];
    GetWebImage('http://www.delphi.co.kr/' + ImageURL);
    Application.ProcessMessages;
  if LineNo = ListBox1.Items.Count -1 then begin
    Application.MessageBox('사진다운로드가완료
2  COMMENTS
  • Profile
    소울해커 2008.11.06 22:52

    딱히 어려운 방식은 모르겠고...

    반복문내에 GetWebImage('http://www.delphi.co.kr/' + ImageURL); 이걸

    try
    GetWebImage('http://www.delphi.co.kr/' + ImageURL);
    except
    continue;
    end;

    로 처리해버리시면 될껄요...
  • Profile
    델사이언 2008.11.06 23:03
    아하 그런 간단한 방법이 -ㅁ - 소울 해커님 연달은 답변 감사합니다. -ㅁ -; 전 저위에 try finally 안에다가 너으려니 영 안