[Desprado]

Собственно есть программа в которую вводишь слово цифры или что то иное, оно проверят в определенном текстовом файле это слово и говорит о том, есть ли это слово в этом тексте или нет.
Теперь возник такой вопрос, есть сайт хостинг ftp я хочу этот файл залить на этот хост. Как мне сделать что бы программа соединялась с сервером и проверяла слово в текстовом файле который лежит на сервере..?
мой код:

Код:

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

procedure TForm1.Button1Click(Sender: TObject); var i: Integer; fName: string; sl: TStringList; b: Boolean; begin m.Clear; if e.Text = '' then begin m.Lines.Add('Пустой текст!'); Exit; end; fName := 'Test.txt'; if not FileExists(fName) then begin m.Lines.Add('Файл не найден!'); Exit; end; b := False; sl := TStringList.Create; sl.LoadFromFile(fName); for i := 0 to sl.Count - 1 do begin if Pos(e.Text, sl[i]) <> 0 then begin b := True; Break; end; end; if b then m.Lines.Add('Текст <' + e.Text + '> в файле найден') else m.Lines.Add('Текст <' + e.Text + '> в файле НЕ найден'); sl.Free; end;

что где редактировать?

[Bargest]

Надо либо написать серверную прогу, которая принимает от клиента строку, ищет в файле и отвечает, либо скачать файл и найти в нём.

[Desprado]

Друг сказал сделать что то типа такого,

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.Button1Click(Sender: TObject); var List : TidHTTP; s : String; begin List := TidHTTP.Create(nil); try s := List.Get('http://www.desprado.org.ua/log/Test.txt'); except ShowMessage('Сообщение об ошибке'); end; FreeAndNil(List); if pos('Ваше искомое слово', s) <> 0 then ShowMessage('Слово нашлось') else ShowMessage('Слово не нашлось'); end;

но я не знаю как отредактировать под свой код