[Oleg]

Помогите пожалуйста разобраться как можно прочитать например всего 50 байт файла по адресу в интернете.
например код:

Код:

var
s:TMemoryStream;
ih: TIdHTTP;
begin
ih:=TIdHTTP.Create(self);
s:=TMemoryStream.Create;
ih.Get('http://site.Image.jpg',s);
s.SaveToFile('FileName.jpg');
end;

этим способом мы полностью прочитаем все данные, а мне нужно всего несколько например, чтобы знать существует ли вообще такой файл или нет..подскажите пожалуйста как это можно сделать ?

[PESTS]

Сообщение от Oleg

Помогите пожалуйста разобраться как можно прочитать например всего 50 байт файла по адресу в интернете.
например код:

Код:

var
s:TMemoryStream;
ih: TIdHTTP;
begin
ih:=TIdHTTP.Create(self);
s:=TMemoryStream.Create;
ih.Get('http://site.Image.jpg',s);
s.SaveToFile('FileName.jpg');
end;

этим способом мы полностью прочитаем все данные, а мне нужно всего несколько например, чтобы знать существует ли вообще такой файл или нет..подскажите пожалуйста как это можно сделать ?

Люди давно уже на Delphi.Net

Код:

{$Region '***Сраница просмотра баланса**'}
  URL:='http://stat1.ufanet.ru/bgbilling/webexecuter?'+
                                             'action=ShowBalance&mid=contract';

  Post_Q:=System.Text.Encoding.UTF8.GetBytes('user='+Login+'&pswd='+Pwd);    Request:=HttpWebRequest(System.Net.HttpWebRequest.CreateDefault(Uri.Create(URL)));
  Request.Method:='POST';
  Request.ContentType:='application/x-www-form-urlencoded';
  try
    Request.GetRequestStream.Write(Post_Q,0,Length(Post_Q));
    Request.GetRequestStream.Close;
    Response:=Request.GetResponse;
    ReceiveStream:=Response.GetResponseStream;
    N:=0;
    Buf:='';
    SetLength(Buf_Bytes,1024);
    N:=ReceiveStream.Read(Buf_Bytes, 0, Length(Buf_Bytes));
    while (N>0) do
    begin
      N:=ReceiveStream.Read(Buf_Bytes, 0, Length(Buf_Bytes));
      Buf:=Buf+System.Text.Encoding.Default.GetString(Buf_Bytes);     
    end;
    ReceiveStream.Close;
    System.Console.WriteLine(Buf);
  except
    on E: WebException do
    begin
      System.Console.WriteLine(E.Message);
      readln;
      exit;
    end;
  end;
  {$EndRegion}