Delphi & PHP를 이용한 웹에 파일 올리기 입니다.

소스 내용에 대한 설명은 생략하겠습니다.

PHP와 Delphi indy를 사용하여 구현하였습니다.

SSL의 경우 무료SSL을 이용하여 IOHandler를 구성하면 되겠습니다.

소스 제공과 테스트를 해주신 반영재님 감사합니다.

  <?php
  $upload_dir  = './data';
  $upload_name =  $_FILES["upfile"]["name"];
  $maxfilesize =  102400000;

  if (is_uploaded_file($_FILES["upfile"]["tmp_name"])) {
    if($_FILES["upfile"]['size'] <= $maxfilesize) { 
      if (move_uploaded_file($_FILES["upfile"]["tmp_name"], 
                             $upload_dir.'/'.$upload_name)) {
          chmod("$upload_dir/$upload_name", 0644);
          echo $upload_name. " upload finish";
      } else {
        echo " upload fail";
      }      
    } else {
      echo " max file size over"; 
    }  
  } else {
    echo " file not selected";        
  }
?>

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, Vcl.ComCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    ProgressBar1: TProgressBar;
    procedure Button1Click(Sender: TObject);
    procedure IdHTTP1Status(ASender: TObject; const AStatus: TIdStatus;
      const AStatusText: string);
    procedure IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
      AWorkCount: Int64);
    procedure IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
      AWorkCountMax: Int64);
    procedure IdHTTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
  private
    { Private }
  public
    { Public }
  end;

var
  Form1: TForm1;

implementation

uses IdMultipartFormData, IdGlobal;

{$R *.dfm}

//=============================================================================
//  파일 업로드
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  AUrl       : String;
  DataPath   : String;
  DataStream : TIdMultiPartFormDataStream;
  ResStream  : TMemoryStream;
begin
  if not OpenDialog1.Execute then exit;

  Memo1.Clear;
  //업로드 파일
  DataPath   := OpenDialog1.FileName;
  //업로드 한 파일을 처리하는 PHP의 절대 경로
  AUrl       := 'http://www.newrun.com/upload/upload_http.php';
  DataStream := TIdMultiPartFormDataStream.Create;
  ResStream  := TMemoryStream.Create;
  try
    //업로드 할 파일 지정
    DataStream.AddFile('upfile', DataPath, '');

    ProgressBar1.Max := DataStream.Size;
    ProgressBar1.Position := 0;

    //업로드
    IdHTTP1.Post(AUrl, DataStream, ResStream);

    ResStream.Position := 0;

    //서버에서받은 문자열을 표시
    Memo1.Lines.Add('');
    Memo1.Lines.Add(IdGlobal.ReadStringFromStream(ResStream, -1));
  finally
    FreeAndNil(DataStream);
    FreeAndNil(ResStream);
  end;
end;

//=============================================================================
//  IdHTTP1의 OnStatus 이벤트
//  연결 상태 등의 문자열을 Memo1에 표시
//=============================================================================
procedure TForm1.IdHTTP1Status(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: string);
begin
  Memo1.Lines.Append(AStatusText);
end;

procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
  case AWorkMode of
    wmRead: ;
    wmWrite: ProgressBar1.Position := AWorkCount;
  end;
end;

procedure TForm1.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Int64);
begin
  case AWorkMode of
    wmRead: ;
    wmWrite: Memo1.Lines.Add('WorkBegin = ' + AWorkCountMax.ToString);
  end;
end;

procedure TForm1.IdHTTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
  case AWorkMode of
    wmRead: ;
    wmWrite: Memo1.Lines.Add('WorkEnd');
  end;
end;

end.