선경선향아빠's Diary

idHTTP Delphi 컴포넌트중 Indy 컴포넌트는 정말 사용하기 편리하고  필요한 기능은 다 구현이 되어 있습니다.  그중 idHTTP사용법을 소개합니다.  1. POST 파일 전송 예제 Indy에 포함되어 있는 TidMultiPartFormData를 이용하여 웹페이지에 POST  전송/파일전송 하는 방법입니다. 크게 어려운 부분이 아니라서 소스코드로 대체 합니다. procedure TFmMain.Button1Click(Sender: TObject); var   DataStream : TidMultiPartFormDataStream;   rs: TMemoryStream; begin   DataStream := TIdMultiPartFormDataStream.Create;   rs := TMemoryStream.Create;   try     idHTTP1.Request.ContentType := DataStream.RequestContentType;     DataStream.AddFormField(''logid'',Trim(Edit1.Text));     DataStream.AddFormField(''passwd'',Trim(Edit2.Text));     // Post 로 apple_logid 와 apple_passwd 값을 전송합니다.     DataStream.AddFile(''upfile'',''e:\\downlogo.bmp'',''application/octet-stream'');     // upfile 변수에 ''e:\\downlogo.bmp'' 파일 을 추가 합니다..      DataStream.Position := 0;     try       IdHTTP1.Post(''test.p...

  웹으로 파일 전송(POST) 하는 프로그램 예전에 홈페이지나 블로그에 파일을 전송하는 프로그램을 만든적 있었는데 그때 소스를 정리해서 올립니다. ​ 폴더 선택 폴더 선택 다이얼로그 가 나와서 PC의 폴더를 선택하는 코드(SelectDirectory 사용) ---- 소스코드 const     SELDIRHELP = 1000; var     Dir: String;     OSVersionInfo: TOSVersionInfo; begin     // 폴더 선택     // 작업 경로 설정     Dir := CurPath;     OSVersionInfo.dwOSVersionInfoSize := sizeof(TOSVersionInfo);     GetVersionEx(OSVersionInfo);     if OSVersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then begin         if SelectDirectory('폴더 찾아보기','',Dir) then begin             if Dir[Length(Dir)] <> '\' then                 Dir := Dir + '\';             CurPath := Dir;             LoadFileList(CurPath);         end;     end     else begin   ...