[Delphi] 웹으로 파일 전송(POST) 하는 프로그램
웹으로 파일 전송(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 ...