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
[13618] INDY 컴포넌트 홈페이지 로그인 관련
Andres [yoonjk8404] 1750 읽음    2011-03-11 13:54
안녕하세요,

TIdMultiPartFormDataStream <-- 이게 아마도 INDY 버젼업을 해야만 사용할 수 있는것 같아서요.
(현재 INDY 8.00.21 사용)


INDY 컴포넌트중 IDHTTP를 이용해서 자동로그인을 해야하는데 TIdMultiPartFormDataStream 를 이용한 소스는
많은데, 저걸 이용하지 않는 방법은 없는것 같아 질문 올립니다.


테스트 중인 소스를 올려드릴테니 검토 후 댓글 부탁드립니다.


현재 소스로는 에러발생하지는 않지만 로그인이 되지않습니다.


procedure TForm1.Button2Click(Sender: TObject);
var
  Strs : TStringList;
  Response: TStringStream;
  Result : Boolean;

begin
  Strs := TStringList.Create;
  Response := TStringStream.Create('');
  //
  Webbrowser1.Navigate('홈페이지MAIN화면');
  //
  try
   IdHTTP1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; '+
              'SV1; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; '+
              '.NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; .NET CLR 1.1.4322)';

   Strs.Values['UserId'] := '아이디';
   Strs.Values['UserPwd'] := '비번';
   cbURL.text := '홈페이지LOGIN화면';
   IdHTTP1.Post(cbURL.text, Strs,Response);
  Memo1.Lines.Text := IdHTTP1.Get('홈페이지MAIN화면');

  finally
    Strs.Free;
  end;
end;

+ -

관련 글 리스트
13618 INDY 컴포넌트 홈페이지 로그인 관련 Andres 1750 2011/03/11
13619     Re:INDY 컴포넌트 홈페이지 로그인 관련 초보자 1932 2011/03/11
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.