|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Запрос на сервер. Делфи
Собственно есть программа в которую вводишь слово цифры или что то иное, оно проверят в определенном текстовом файле это слово и говорит о том, есть ли это слово в этом тексте или нет.
Теперь возник такой вопрос, есть сайт хостинг ftp я хочу этот файл залить на этот хост. Как мне сделать что бы программа соединялась с сервером и проверяла слово в текстовом файле который лежит на сервере..? мой код: Код:
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; что где редактировать? |
#2
|
||||
|
||||
Надо либо написать серверную прогу, которая принимает от клиента строку, ищет в файле и отвечает, либо скачать файл и найти в нём.
jmp $ ; Happy End! The Cake Is A Lie. |
#3
|
||||
|
||||
Совет...
Друг сказал сделать что то типа такого,
Код:
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; но я не знаю как отредактировать под свой код |