아래와 같은 방식으로 통과.
다른 값을 넘겨야 한다면 POST 로 호출해도 좋음.
procedure TForm1.Button1Click(Sender: TObject);
var
IdHTTP1: TIdHTTP;
Host: String;
begin
IdHTTP1:=TIdHTTP.Create(Self);
try
IdHTTP1.Request.Username := '인증ID';
IdHTTP1.Request.Password := '인증비밀번호';
idHTTP1.Request.BasicAuthentication := true;
Memo1.Text:=IdHTTP1.Get('http://인증URL');
finally
FreeAndNil(IdHTTP1);
end;
end;
var
IdHTTP1: TIdHTTP;
Host: String;
begin
IdHTTP1:=TIdHTTP.Create(Self);
try
IdHTTP1.Request.Username := '인증ID';
IdHTTP1.Request.Password := '인증비밀번호';
idHTTP1.Request.BasicAuthentication := true;
Memo1.Text:=IdHTTP1.Get('http://인증URL');
finally
FreeAndNil(IdHTTP1);
end;
end;
'Delphi' 카테고리의 다른 글
[Delphi] Dos 명령어 실행 후 결과를 받아오는 함수 - DLL (0) | 2009.09.05 |
---|---|
[Delphi] DLL 만들기 (0) | 2009.09.05 |
[Delphi] TWebBrowser 스크롤바 없애기 (2) | 2009.08.17 |
[Delphi] RAD Studio 2009 에서 CreateProcess 사용시 에러 (0) | 2009.07.14 |
[Delphi] POST 전송으로 파일전송하기 (2) | 2009.06.21 |