VB 버전으로 돌아다니던 소스를 누가 델파이로 바꿨나보네요.
그런데 질문하신 걸 보니 델파이 개발 경험이 없으신 것 같은데 왜 쓰시려는 건지.
winhttp.Open('GET',' http://cafe.naver.com/MyCafeMyActivityAjax.nhn?clubid=25634568',FALSE);
주소야 그대로일테고 clubid 이 부분이 바뀔 수 있는 것일테니까, 다음과 같이 하면 되겠군요.
winhttp.Open('GET',' http://cafe.naver.com/MyCafeMyActivityAjax.nhn?clubid=' + (입력된clubid),FALSE);
그런데 WinHTTP 타입라이브러리 임포트는 하신 건가요?
이 코드를 사용하려면 WinHTTP 타입라이브러리를 임포트하고 uses도 해야 하는데요.
박한철 님이 쓰신 글 :
: 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.
|