Вопрос TClientSoket

[Crivel]

Ну неужели НЕКТО на этом форуме не знает как это сделать?

[JTG]

Да на блин

кидаешь на форму memo и TIDHttp с вкладки indy clients

procedure TForm1.Button1Click(Sender: TObject);
var response:TStringStream;
    s:string;
begin
  response := TStringStream.Create(s);
  IdHTTP1.Connect;
  IdHTTP1.Get('http://ляляля.com/text.txt',response);
  memo1.Lines.SetText(pchar(response.DataString));
  IdHTTP1.Disconnect;
  response.Free;
end;

[JRcoker]

А тебе обязательно TClientSoket?..Можно и проще...
В uses добавь Wininet...

function GetInetFile(const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var hSession, hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
begin
   Result:=False;
   sAppName := ExtractFileName(Application.ExeName);
   hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG,
         nil, nil, 0);
   try
      hURL := InternetOpenURL(hSession,
      PChar(fileURL),nil,0,0,0);
      try
         AssignFile(f, FileName);
         Rewrite(f,1);
         repeat
            InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
            BlockWrite(f, Buffer, BufferLen)
         until BufferLen = 0;
         CloseFile(f);
         Result:=True;
      finally
      InternetCloseHandle(hURL)
      end
   finally
   InternetCloseHandle(hSession)
   end
end;

Процедура...

var FileOnNet, LocalFileName: string;
begin
  FileOnNet:='http//word-exchange.3dn.ru/1.txt';
   LocalFileName:='1.txt';
   if GetInetFile(FileOnNet,LocalFileName)=True then
   begin
   ShowMessage('Ошибка');
   end
   else
   ShowMessage('Произашел облом!:(')
end;

[Crivel]

JRcoker, извините, я зделал всё как вы сказали, но программа зависает.

[JRcoker]

JRcoker, извините, я зделал всё как вы сказали, но программа зависает.

Возможно URL не верный...У меня всё работает...

[Crivel]

JRcoker, прошу большие извинения! это просто с Ucoz'ом не пашет, а с Народом пашет! спасибо большое!