![Старый](images/statusicon/post_old.gif)
28.11.2010, 10:01
|
![Аватар для NumLock](image.php?u=11501&dateline=1357538728) |
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
Код:
unit Unit1;
interface
uses
ComObj,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
FXMLHTTP: Variant;
begin
FXMLHTTP:=CreateOleObject('Microsoft.XMLHTTP');
FXMLHTTP.open('HEAD', 'http://www.delphisources.ru/forum/images/misc/logo_ds_forum.gif', False);
FXMLHTTP.send('');
Memo1.Text:=FXMLHTTP.getResponseHeader('Content-Type');
end;
end.
__________________
Пишу программы за еду.
__________________
|