귀하는 손님 이십니다
로그인
회원가입
  
  델마당 공식 은행계좌
  하나은행 227-910235-83607
  예금주 이상국(운영진)
프로젝트 게시판
투표게시판
델마당소개
기초부터 활용까지! 델파이 교육 - 데브기어
 광고문의 :
吏덈Ц怨 떟蹂 吏덈Ц怨 떟蹂 입니다.
글내용 - 吏덈Ц怨 떟蹂
 [吏덈Ц] ListBox뿉 씠誘몄 二쇱냼뱾 떎슫 吏덈Ц씠슂!
븰깮
(듅誘)
2019-04-05 삤썑 1:52:35
86회 조회


등록된 파일이 없습니다.

뙆떛빐꽌 씠誘몄 二쇱냼뱾쓣 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臾 옄泥닿 씠긽븳嫄닿슂?