Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[9743] 자답: 그리고 유영인님 감사합니다.
유일근 [neoroot] 1508 읽음    2004-07-16 09:33
결국 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;
:
: 그쪽 서버 경로에 쓰기권한을 다 주었습니다.
: 이쯤되면 설설 제가 눈물이 앞을 가리네여 ㅡㅜ
: 조언을 부탁드립니다.

+ -

관련 글 리스트
9736 NMHTTP를 이용해서 웹서버에 파일 업로드(upload)가 안되네여 ㅡㅜ 헬프~ 유일근 1192 2004/07/14
9743     자답: 그리고 유영인님 감사합니다. 유일근 1508 2004/07/16
9741     Re:NMHTTP를 이용해서 웹서버에 파일 업로드(upload)가 안되네여 ㅡㅜ 헬프~ 유영인 Cuperido 1507 2004/07/16
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.