[Обсуждение] Запрос на сервер. Делфи

["Unix]

Собственно есть программа в которую вводишь слово цифры или что то иное, оно проверят в определенном текстовом файле это слово и говорит о том, есть ли это слово в этом тексте или нет.
Теперь возник такой вопрос, есть сайт хостинг 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 минуты
просто как бы, проверяла Искомое которое лежит на хосте.

[Fiery Dragon]

s:=idHTTP1.Get('http://mysite.ru/text.txt');
в S содержимое файла,и уже по нему ищешь...

p.s у тебя написано что на фтп файл лежит,а я без понятия как к нему подключатся программно..так что как вариант залить файл на бесплатный хостинг и там уже искать

["Unix]

Просто смотри, если ты разберешься то может поможешь:
Я могу сделать так:
форма - на форму кинуть кнопку, в ее обработчик событий написать что то типа такого,

Цитата: 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;

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

Добавлено через 34 минуты
Не получается! (

Цитата: unit Unit1; interface uses Windows, Messages,idHTTP, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient; type TForm1 = class(TForm) Button1: TButton; e: TEdit; m: TMemo; IdHTTP1: TIdHTTP; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} 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:=idHTTP1.Get('http://www.desprado.org.ua/log/Test.txt'); 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; end.

[Fiery Dragon]

тоесть ты вводишь в мемо текст->нажимаешь на кнопку->и тебе выводит результат?
[Ссылки могут видеть только зарегистрированные пользователи. ]
вот посмотри программу,так ?

["Unix]

Нет) Я ввожу в Edit1 то что хочу проверить Слово цифры символы Жму проверить, оно проверяет в тексте которые лежит рядом с программкой* (а нужно что бы проверяло в тексте который лежит на сайте) и говорит в мемо о результате. Типа

Цитата: m.Lines.Add('Текст <' + e.Text + '> в файле найден') else m.Lines.Add('Текст <' + e.Text + '> в файле НЕ найден');

m я позначил мемо

Добавлено через 2 минуты
не смог посмотреть ваш пример
пишет что то с MainFormOnTaskbar

[Fiery Dragon]

запусти exe файл)там в мемо введи текст который тебе надо,в edit введи адрес файла,а сообщение выдаст в виде окна

перезалил архив,мб не открывалось проект потому что у меня установлен компонент AlphaControl....

["Unix]

Дружище я не такой уже и глупый.
при открытии ексешника пишет.
[Ссылки могут видеть только зарегистрированные пользователи. ]

Добавлено через 5 минут
Нельзя ли просто в этом коде*

Цитата: 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;

Дописать адрес текста типа [Ссылки могут видеть только зарегистрированные пользователи. ]

я просто не знаю как(

Добавлено через 8 минут
у меня AlphaControl кстате тоже установлено..
Fiery Dragon, а где вы перелазили архив?
Есть ли у вас icq может там бы вы мне помоги)

[Fiery Dragon]

[Ссылки могут видеть только зарегистрированные пользователи. ]

вот,в едит адрес файла,в мемо текст поиска

["Unix]

Супер, тогда возникает вопрос. Как мне открыть исходник?
и можно ли сделать одни адрес проверки
то есть, что бы не нужно было писать не какой адрес - а что бы он был один.
Да и в обще его скрыть, он особо не какой роли не играет.

Добавлено через 4 минуты
То что компилятор говорит:
[Ссылки могут видеть только зарегистрированные пользователи. ]

[Fiery Dragon]

на форме Memo+button

procedure TForm1.btnSendClick(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(mmText.Text, s) <> 0 then ShowMessage('Слово нашлось')
else ShowMessage('Слово не нашлось');
end;
//где  mmText это твоё мемо

всё

[Fiery Dragon]

это разместить на форму компонент IdHTTP1...

["Unix]

Вобще в шоке!
снова где то ошибка(
[Ссылки могут видеть только зарегистрированные пользователи. ]
скрин
Добавил компанент IdHTTP1 не чего не изменилось