자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

Delphi XE3에서 INDY를 이용한 http 파일 전송 오류

2012.10.12 04:28

onehana 조회 수:11946



indy를 이용한 파일 업로드가 낮은 버전(2010)에서 잘 됐었는데 XE3에서는 오류가 발생합니다.

 

낮은 버전에서 소스는 다음과 같습니다.

 

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, IdMultipartFormData,
  IdHTTP;

type
  TForm3 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    function UploadInsImages: boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
    UploadInsImages;
end;

function TForm3.UploadInsImages: boolean;
var
    PostData: TIdMultiPartFormDataStream;
    sReceive : TStringList;
    IdHTTP2: TIdHTTP;
begin
    sReceive := TStringList.Create;
    IdHTTP2 := TIdHTTP.Create;
    Result := True;
    PostData := TIdMultiPartFormDataStream.Create;
    try
        PostData.AddFormField('pID', '277' );
        PostData.AddFormField('imageFolder', 'img' );
        PostData.AddFile('file', Edit1.Text, 'Application/octet-stream');
        PostData.Position := 0;
        idHttp2.Request.ContentType := postData.RequestContentType;
        sReceive.text := idHttp2.Post('http://mydomain/up.asp', PostData);
        showmessage(sReceive.Text);
        if trim(sReceive.text) <> 'OK' then Result := False;
    finally
        FreeAndNil(PostData);
    end;
end;


end.

이 소스는 아주 잘 됩니다. 파일이 잘 올라 갑니다.

아쉽게도 이 소스가 XE3로 가면 그냥 업로드하면 오류가 생겨 약간 변경을 합니다.

 

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, IdMultipartFormData,
  IdHTTP;

type
  TForm3 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    function UploadInsImages: boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
    UploadInsImages;
end;

function TForm3.UploadInsImages: boolean;
var
    PostData: TIdMultiPartFormDataStream;
    sReceive : TStringList;
    IdHTTP2: TIdHTTP;
begin
    sReceive := TStringList.Create;
    IdHTTP2 := TIdHTTP.Create;
    Result := True;
    PostData := TIdMultiPartFormDataStream.Create;

    try

        PostData.AddFormField('pID', '277', 'utf-8', 'text/plain', '277');
        PostData.AddFormField('imageFolder', 'img', 'utf-8', 'text/plain', 'img');
        PostData.AddFile('file', Edit1.Text, 'Application/octet-stream');
        PostData.Position := 0;
        idHttp2.Request.ContentType := postData.RequestContentType;
        sReceive.text := idHttp2.Post('http://mydomain/up.asp', PostData);
        showmessage(sReceive.Text);
        if trim(sReceive.text) <> 'OK' then Result := False;

    finally
        FreeAndNil(PostData);
    end;
end;


end.

위 빨간 색 부분은 제가 엄청 많은 시간 고생한 끝에 찾아 낸 해법으로, 저렇게 해야 변수 값이 제대로 올라갑니다.

처음에는 변수 값이 제대로 안 오길래 무지무지 고생하다가 찾아내서 다 해결된 줄 알았습니다.

그런데, 업로드된 파일의 맨 첫 부분에 0D 0A 두 바이트가 삽입이 되는 심각한 문제가 발생했습니다.

Edit1 에는 업로드할 파일 이름이 들어 있습니다.

jpg 이미지를 업로드 하던, zip 파일을 업로드 하던 마찬가지입니다.

업로드된 파일의 첫번째 두 바이트가 0D 0A 입니다.

PostData.AddFile('file', Edit1.Text, 'Application/octet-stream'); 여기서 MIME 타입을 여러 가지로 바꿔 봤는데 결과는 같습니다.

XE3로 되면서 INDY 소스가 변경이 되면서 오류가 발생한 것일까요?

아니면 제가 파라미터 세팅을 잘못한 것일까요?

이틀을 헤매고 있습니다.

해법을 알려 주십시오.

감사합니다.

onehana@yahoo.com

이 게시물을
목록
목록
번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 15804
공지 유용한 관련 사이트 관리자2 2014.03.20 54605
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 98048
59 V3가 델파이를 바이러스로 인식해요 관리자 2012.04.10 10399
58 [delphi7] 테이블 암호화 이후 BDE Ttable 사용 프로그램 재 컴파일 건 [1] 강차 2012.05.23 10408
57 Firemonkey 사용에 대해서 한글 처리는 왜 이렇게 문제가 많을까요? sumily 2012.06.15 10477
56 윈도우 XP, 델파이 6.0, 퀵리포트 에서 메모리 누수 이슈 [1] 관리자 2012.02.17 10486
55 dbxora.dll 파일을 찾지 못합니다. [1] file 허지승 2013.03.20 10490
54 MAC 앱스토아 등록시 Sandbox 처리 관련 [1] c2design 2012.04.16 10491
53 BDE administrator에 대한 문의입니다. [3] 오상헌 2013.03.14 10573
52 델파이 XE2 디버깅 에러 재 질문 드립니다. [1] file 쮸니 2012.08.10 10616
51 UTF-8로 작성된 XML파일 전송합니다. [2] file 조우상 2012.05.08 10667
50 LINK32 에러 문의입니다. [1] 오상헌 2012.04.27 10672
49 안드로이드 와 MSSQL 연결중 Data.DBXMSSQL.dcu 오류발생 건입니다. [1] 성유리 2013.12.20 10703
48 Windows7 에서 관리자 권한 토마토 2012.07.25 10704
47 Delphi 5의 Oracle 11G Multi language DB 지원 유무 문의 [4] 압둘라애인 2012.04.19 11022
46 데이터베이스 엔진 에러 [1] 초딩개발자 2012.05.01 11116
45 FireMonkey에서 한글 입력에 대한 문제 [3] file sumily 2012.04.04 11419
44 델파이 7 사용자입니다. 델파이 XE2에서 더 좋아진 점이 무엇이고, 업그레이드가 꼭 필요한지 알고 싶습니다. [2] file 관리자 2012.07.12 11510
43 TStyleManager 관련 질문 [4] 구군v 2012.04.05 11558
42 델파이7과 델파이XE에서의 동일 함수의 리턴값이 서로 다릅니다. [2] 희망봉 2012.05.03 11587
41 Bitmap ->JPG 전환 및 doubleBuffered 설정 방법 문의 [1] bongheon 2012.05.16 11819
» XE3에서 INDY를 이용한 http 파일 전송 오류 [2] onehana 2012.10.12 11946
쓰기
태그