[Oleg]

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

Код:

1 2 3 4 5 6 7 8 9

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 байт файла по адресу в интернете.
например код:

Код:

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

{$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)); <b>    while (N>0) do     begin       N:=ReceiveStream.Read(Buf_Bytes, 0, Length(Buf_Bytes));       Buf:=Buf+System.Text.Encoding.Default.GetString(Buf_Bytes);         end;</b>     ReceiveStream.Close;     System.Console.WriteLine(Buf);   except     on E: WebException do     begin       System.Console.WriteLine(E.Message);       readln;       exit;     end;   end;   {$EndRegion}