결국 INDY를 설치해부렸습니다 ㅡㅜ 흑흑
procedure TfrmSD50510U.btnEsntryClick(Sender: TObject);
var
ResponseStream: TMemoryStream;
MultiPartFormDataStream: TIdMultiPartFormDataStream;
begin
if edtIN_ACCT_NO.Text = '' then exit;
Screen.Cursor := crHourGlass ;
MultiPartFormDataStream := TIdMultiPartFormDataStream.Create;
ResponseStream := TMemoryStream.Create;
try
try
HTTP.Request.ContentType := MultiPartFormDataStream.RequestContentType;
MultiPartFormDataStream.AddFormField('acct_no',udfDeleteChar( edtIN_ACCT_NO.Text) );
MultiPartFormDataStream.AddFormField('filename', udfDeleteChar( edtIN_ACCT_NO.Text) +'.jpg');
MultiPartFormDataStream.AddFile('filename',edtSignaturePath.Text,'');//이부분 주의하셔야 합니다. 파일에드하실때.. 마지막 파라메터값이 고스란히 이미지 파일이랑 섞여버려서 고생했습니다.
MultiPartFormDataStream.Position := 0;
Urls := MapFilePointer^.G_URL+'upload.jsp?ACCT_NO=' + udfDeleteChar( edtIN_ACCT_NO.Text) ;
HTTP.Post(Urls, MultiPartFormDataStream,ResponseStream);
udfDialog('D0000100','SIGNATURE CARD 파일',MB_OK);//메세지.
Except
udfDialog('D0000105','SIGNATURE CARD 파일',MB_OK);//메세지.
end;
finally
MultiPartFormDataStream.Free;
ResponseStream.Free;
Screen.Cursor := crDefault;
end;
end;
유일근 님이 쓰신 글 :
:
: 수고하십니다
:
: 델파이 5에 인디를 쓰지 않고 일반 NMHTTP를 이용해서 업로드 하는디
: 서버는 ibm,aparch,웹스피어를 돌린다고 하네여 ㅡㅜ
:
: Showmessage의 전송중 에러 발생은 안나오지만
: nmhttp의 fail Event에서 put failure로 나옵니다.
:
:
: try
: NMHTTP1.OutputFileMode := TRUE;
: NMHTTP1.ReportLevel := Status_Basic;
: Urls := '
http://192.168.1.2:9030/image/a.jpg';
: NMHTTP1.Put(Urls,'c:\a.jpg');
:
: ShowmESSAGE(urls);
: NMHTTP1.OutputFileMode := FALSE;
: except
: NMHTTP1.OutputFileMode := FALSE;
: ShowmESSAGE('전송중 에러 발생');
: end;
:
: 그쪽 서버 경로에 쓰기권한을 다 주었습니다.
: 이쯤되면 설설 제가 눈물이 앞을 가리네여 ㅡㅜ
: 조언을 부탁드립니다.