간단하게 HTTP로 파일 업로드 하기

var
  ResponseStream: TStringStream;
  DataStream: TIdMultiPartFormDataStream;
begin
  ResponseStream := TStringStream.Create('', TEncoding.UTF8);
  DataStream := TIdMultiPartFormDataStream.Create;

  try
    with TIdHTTP.Create(nil) do begin
      try
        DataStream.AddFormField('FileName', 'test'); //필드명, 값 추가
        DataStream.AddFile('Data', '경로+파일명'); //필드명, 파일 추가

        Request.ContentType := 'multipart';

        Post(
          'https://developist.tistory.com/test/upload', 
          DataStream, 
          ResponseStream
        );

        ShowMessage(ResponseStream.DataString);
      finally
        Free;
      end;
    end;
  finally
    ResponseStream.Free;
    DataStream.Free;
  end;
end;