::: 델파이 Tip&Trick :::

델파이 Tip&Trick 성격에 맞지 않는 광고,비방,질문의 글은 즉시 삭제하며
내용을 복사하여 사용할 경우 반드시 이곳(http://www.howto.pe.kr)을 출처로 명시하여 주세요


Category

  김영대(2004-12-02 15:34:58, Hit : 7306, Vote : 1376
 http://www.howto.pe.kr
 HTTP의 다운받을 파일의 정보만 미리 읽어오기

// 아래 소스는 파일의 정보만 읽어오는 예제이며 실제 다운로드하는 소스는 강좌/소스/문서에
// "웹에서 버전 확인하여 파일 다운받기"로 올려져 있습니다

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Button1: TButton;
    edURL: TEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  edURL.Text := 'http://www.google.co.kr';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;

  try
    IdHTTP1.Head(edURL.Text);
    Memo1.Lines.Add('Server: ' + IdHTTP1.Response.Server);
    Memo1.Lines.Add('Connection: ' + IdHTTP1.Response.Connection);
    Memo1.Lines.Add('CacheControl: ' + IdHTTP1.Response.CacheControl);
    Memo1.Lines.Add('Location: ' + IdHTTP1.Response.Location);
    Memo1.Lines.Add('ContentLength: ' + IntToStr(IdHTTP1.Response.ContentLength)); // 파일 크기
    Memo1.Lines.Add('ContentEncoding: ' + IdHTTP1.Response.ContentEncoding);
    Memo1.Lines.Add('ContentLanguage: ' + IdHTTP1.Response.ContentLanguage);
    Memo1.Lines.Add('ContentType: ' + IdHTTP1.Response.ContentType);
    Memo1.Lines.Add('ContentVersion: ' + IdHTTP1.Response.ContentVersion);
    Memo1.Lines.Add('ResponseText: ' + IdHTTP1.Response.ResponseText);
    Memo1.Lines.Add('CustomHeaders: ' + IdHTTP1.Response.CustomHeaders.Text);
    Memo1.Lines.Add('ProxyConnection: ' + IdHTTP1.Response.ProxyConnection);
    Memo1.Lines.Add('ProxyAuthenticate: ' + IdHTTP1.Response.ProxyAuthenticate.Text);
    Memo1.Lines.Add('WWWAuthenticate: ' + IdHTTP1.Response.WWWAuthenticate.Text);

    // IdHTTP.Response 의 프러퍼티중 일부 파싱을 잘못하여 정보가 들어있지 않은 경우나
    // 최신의 Indy 컴포넌트가 아니어서 Response.LastModified 가 없는경우는
    // 직접 Response.RawHeaders 를 읽어 정보를 알아낼 수 있다
    //Memo1.Lines.Add('LastModified: ' + IdHTTP1.Response.LastModified);
    Memo1.Lines.Add('RawHeaders: ' + IdHTTP1.Response.RawHeaders.Text);
  except on E: Exception do
    Memo1.Lines.Add(E.Message);
  end;
end;

end.





971   [윈도우즈 API] 작업 표시줄에 보이는 프로그램의 아이콘 정보  김영대 2008/12/09 5965 1438
970   [윈도우즈 API] 실행 파일의 아이콘 바꾸기  김영대 2008/11/27 7479 1383
969   [네트웍/인터넷] TClientSocket 에 Local IP 바인딩하기  김영대 2008/11/25 6261 1502
968   [알고리즘] Boyer-Moore-Horspool Text Searching  김영대 2008/11/24 5016 1349
967   [일반/컴포넌트] Tab, Shift+Tab 키 이벤트 사용하기  김영대 2008/11/21 4895 1386
966   [일반/컴포넌트] TStringList vs. THashedStringList  김영대 2008/11/04 5201 1371
965   [시스템] 프로세스가 원도우즈 원격 터미널에서 실행중인지 검사  김영대 2008/11/04 5184 1477
964   [시스템] 원도우즈 도메인 이름 구하기  김영대 2008/11/04 5713 1347
963   [시스템] 사용중인 USB 포트의 장치정보 구하기  김영대 2008/11/04 11679 1461
962   [일반/컴포넌트] Treeview의 수평 스크롤바 감추고 스크롤 막기  김영대 2006/03/22 5436 1236
961   [윈도우즈 API] 바탕화면의 모든 창 최소화하기  김영대 2006/02/28 5378 1288
960   [일반/컴포넌트] 일정시간 경과후 없어지는 MessageBox  김영대 2006/02/28 6415 1599
959   [시스템] System의 Idle 상태를 알아내는 API  김영대 2006/02/28 6052 1442
958   [일반/컴포넌트] ListBox에 Edit 올려 항목 편집하기  김영대 2006/02/28 4766 1206
957   [일반/컴포넌트] 폼 흔들기  김영대 2006/02/28 5232 1194
956   [일반/컴포넌트] 마우스로 ProgressBar의 Position 바꾸기  김영대 2006/02/28 4816 1249
955   [일반/컴포넌트] ListBox 드래그하여 아이템 이동하기  김영대 2006/02/28 4857 1181
954   [시스템] 폼의 Move/Resize 시작,종료 이벤트 감지하기  김영대 2006/02/28 5146 1354
953   [COM/OLE] IE의 속성을 변경하여 뛰우기  김영대 2006/02/28 5230 1227
952   [윈도우즈 API] 세로 글꼴 제거한 FontDialog  김영대 2006/02/28 5137 1346
951   [시스템] CPU 이름 구하기2  김영대 2005/09/13 5607 1344
950   [네트웍/인터넷] IP Helper API 를 이용한 네트워크 카드 Enable/Disable 시키기  김영대 2005/09/10 6027 1315
949   [일반/컴포넌트] 폼에 자석효과 주기 (Delphi 6 이하)  김영대 2005/08/04 5975 1293
948   [일반/컴포넌트] 객체의 valid검사 Assigned() 대체  김영대 2005/07/29 4722 1246
947   [시스템] 시스템 대기모드/화면 보호기/모니터 끄기 이벤트 감지하기  김영대 2005/07/21 6776 1488
946   [시스템] 윈도우즈 GUI 기본 폰트정보 구하기  김영대 2005/07/14 5442 1349
945   [시스템] 윈도우즈 입력도구모음의 한/영 토글하기  김영대 2005/06/24 5225 1372
944   [COM/OLE] ActiveForm의 OnDestroy 대용  김영대 2005/04/21 5241 1226
943   [일반/컴포넌트] ListView의 타이틀 폰트 바꾸기  김영대 2005/03/31 5156 1233
942   [일반/컴포넌트] 일정시간 경과후 없어지는 MessageDlg/ShowMessage  김영대 2005/03/26 5827 1268
941   [일반/컴포넌트] 프로그램의 bitmap을 MS 그림판으로 편집하여 다시 불러오기  김영대 2005/03/22 5160 1323
940   [일반/컴포넌트] RichEdit 2.0 줄간격 조정  김영대 2005/02/11 7203 1270
939   [COM/OLE] 탐색기에서 파일을 선택하여 ActiveX(ActiveFortm)에 Drag&Drop 하기  김영대 2005/01/06 7535 1268
938   [윈도우즈 API] TDownloadURL를 사용한 파일 다운받기  김영대 2004/12/26 6378 1262
937   [COM/OLE] TWebBrowser에 직접 HTML 소스코드 넣기  김영대 2004/12/26 6026 1266
936   [윈도우즈 API] 윈도우즈 시스템 전체에서 사용자의 마우스와 키보드 입력이 있는지 검사하기  김영대 2004/12/26 6044 1350
935   [일반/컴포넌트] 다이얼로그 박스가 이미 떠있는지 검사하여 강제로 닫기  김영대 2004/12/22 5035 1212
934   [윈도우즈 API] URLDownloadToFile()를 사용한 파일 다운받기  김영대 2004/12/15 7627 1385
933   [COM/OLE] 내 프로그램에서 선택한 text를 다른 프로그램에 Drag&Drop으로 주기  김영대 2004/12/10 5364 1099
932   [COM/OLE] 다른 프로그램에서 선택한 text를 내 프로그램에서 Drag&Drop으로 받기  김영대 2004/12/09 5508 1206

1 [2][3][4][5][6][7][8][9][10]..[25] [다음 10개]
 

Copyright 1999-2018 Zeroboard / skin by zero