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
[14566] 로그인소스질문이요 ㅎㅎ
박한철 [gkscjf38] 2550 읽음    2013-01-16 18:13
procedure TForm1.Button1Click(Sender: TObject);
var
Winhttp : IWinHttpRequest;
begin
Winhttp := coWinHttpRequest.Create;
winhttp.Open('POST','http://nid.naver.com/nidlogin.login',FALSE);
winhttp.SetRequestHeader('REFERER','http://nid.naver.com/nidlogin.login');
winhttp.SetRequestHeader('CONTENT-TYPE','application/x-www-form-urlencoded');
winhttp.Send('enctp=2&svctype=0&id='+Edit1.Text+'&pw='+Edit2.Text);
//DoEvents;
begin
winhttp.Open('GET','http://cafe.naver.com/MyCafeMyActivityAjax.nhn?clubid=25634568',FALSE);여쪽에서 주소랑 고유번호쓰는법점여 ㅎㅎ
winhttp.Send('');
winhttp.WaitForResponse('');
if AnsiPos('접속하신 카페는', Winhttp.ResponseText) <> 0 then begin
ShowMessage('카페에 가입되있지 않거나' + #13 + '아이디 또는 비밀번호가 일치하지 않습니다.');
end;
Form1.show
end;
end;
end.

+ -

관련 글 리스트
14566 로그인소스질문이요 ㅎㅎ 박한철 2550 2013/01/16
14569     Re:로그인소스질문이요 ㅎㅎ 박지훈.임프 3135 2013/01/16
14575         담변감사드립니다.. 박한철 1925 2013/01/17
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.