귀하는 손님 이십니다
로그인
회원가입
  
  델마당 공식 은행계좌
  하나은행 227-910235-83607
  예금주 이상국(운영진)
프로젝트 게시판
투표게시판
델마당소개
기초부터 활용까지! 델파이 교육 - 데브기어
 광고문의 :
질문과 답변 질문과 답변 입니다.
글내용 - 질문과 답변
 [질문] ListBox에 이미지 주소들 다운 질문이요!
대학생
(승민)
2019-04-05 오후 1:52:35
158회 조회


등록된 파일이 없습니다.

파싱해서 이미지 주소들을 ListBox에 담아놨는데

ListBox에 있는 이미지 주소들을 jpg로 다운시키려하는데

반복문을 어케 써야할지 잘 모르겠어요.

 

procedure TForm1.Button1Click(Sender: TObject);
var
  MS:TMemoryStream;
  JPEG:TJPEGIMAGE;
  Url,sDir:String;
  I:Integer;
begin
  sDir:=ExtractFilePath(ParamStr(0))+'Download';
  if not DirectoryExists(sDir) then
  CreateDir(sDir);

  MS:=TMemoryStream.Create;
  try
    JPEG:=TJPEGImage.Create;
    try
      for I := 0 to ListBox5.Items.Count -1 do begin
        Url:=st.Strings[I];
        MS.Clear;
        try
          Idhttp1.Get(Url,MS);
        except

        end;
        MS.Position:=0;
        JPEG.LoadFromStream(MS);
      //  Image1.Picture.Assign(JPEG);
        JPEG.SaveToFile(sDir+'\'+IntToStr(I)+'.jpg');
        Application.ProcessMessages;
      end;
    finally
    JPEG.Free;
    end;
  finally
    MS.Free;
  end;
end;

위에 st는 TStringList로 선언해주고 파싱할때 ListBox5에 있는 주소들 담아줬어요.

Url:=st.Strings[I]; 여기가 문제인건가요 아니면 for문 자체가 이상한건가요?