[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Кто подскажет есть компонент WebBrowser.
Пользователь через него входит на определенную страницу на которой висит Flash. Flash в свою очередь подсоединяеться раз в 30 секунд к другим url и обновляет информацию с них. Страница прописанная в браузере остается той же.
Так вот вопрос. Как можно отловить список url загружаемых Flash'ом чтобы в дальнейшем проверить их на вхождение нужных мне слов.

 

есть хорошие прогеры на delphi ?
нужно задачку сделать небольшую.

icq для связи 4847779

 

Снифать трафик или ковырять интерпретатор Adob'a

 

Здравстуйте.Ошибка в коде, цикл for проходит всего один раз.

Code:

  For i:=1 to 3 do
                 Begin
                   Rewrite(Result);
                   WriteLn(result,Get_('моя url') );
                   Closefile(result);
                   Reset(Result);
                   While not Eof(Result) do
                     Begin
                          readLn(result,s);
                          S:=Utf8ToAnsi(s);
                          If pos('что что',s) <> 0 then
                            Begin
                                 {делаю парсинг из нужной мне}             
                                 {строки и вывожу в memo}
                            End;
                     End;
                   CloseFile(Result);
                 End;

Функция Get_

Code:

Function GEt_(Url :String):String;
var
  mStream: TMemoryStream;
  Lst :TStrings;
  {idhttp:TIdHTTP;}
begin
 Result := '';
 mStream := TMemoryStream.Create;
 Lst := TStringList.Create;
try
  
  try
    Form1.idHttp1.Get(URL, mStream);
    mStream.Position := 0;
    Lst.LoadFromStream(mStream);
    Result := Lst.Text;
  finally
    Form1.idHttp1.Free;
  end;
finally
  mStream.Free;
  Lst.Free;
end;
end;

Думаю что проблема в работе с файлом.

 

Проблема в том, что ты освобождаешь IdHTTP, а при следующем проходе в цикле он не создается. Лучше TIdHTTP опиши в теле функции и создавай и освобождай его в там, либо просто выкинь строчку, которую я выделил красным.

Если убрать все try finally ты бы получил Access Violation

 

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

 

shadowrun, примерно так:

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption:= ParamStr(1);
end;

 

Мерси.

 

Пишу прогу для своего инет провайдера.
Написал код авторизации, всё работает.

Нужно спарсить баланс со страницы и ещё пару фигнюшек. Но на странице не за что зацепиться. По тегам пробовал парсить... ничего не получилось.

Кто может помочь, отпишите, вышлю код в лс.

Спасибо.

 

Подскажите.С ListView я не дуржу совсем.

1.Есть listview в режиме VsReport с 2мя colum.
Нужно сделать поиск по определенному colums и все items в которых есть искомое слово
должны остаться в listView,которые не подходят должны очиститься и удалиться.

2.Название компонента типа такой кнопки.При нажатии выпадает список с возможными действиями.

 

Пишу чекер аков почтовика.
Упёрся в это:
После 20 попыток сервак выдаёт

Как обойти без смены ip?

 

Если сервак делает проверку по IP - тогда никак.
Можешь попробовать сменить User-Agent, но скорее это не поможет.

 

Набранное вами сообщение слишком короткое. Увеличьте ваше сообщение до 4 символов.

 

Делает. Как я понял, необходимо менять ip адрес, следовательно юзать прокси. Подскажите, как заюзать прокси средствами delphi.

 

Для начала напишите, что используете для работы с сетью (Indy или может быть что то другое).

 

Indy в данном приложении, но можно и на сокетах.

 

http://avtuh.ru/2010/08/06/delphi-indy-ispolzovanie-proksi-http-i-socks.html

 

Признателен.

 

Пол дня ломаю голову. Собственно, вот над чем:

На форме лежит Memo1, Button и RichEdit. При нажатии на смайлик, в Memo добавляется его код, напр =(, =), =D etc...
При нажатии на Button весь текст отправляется на сервер, сервер передает его в RichEdit. Так вот надо чтоб вместо кодов смайлов в риче выводились картинки, делаю так:
InsertBitmapToRE(RichEdit1.Handle, SpeedButton1.Glyph.Handle);
Так вот задача в том чтоб все коды смайлов заменять картинками..

 

WebBrowser1.Navigate('ya.ru');
Вываливается контекстное меню интернет експлорера. Ка убрать конт.меню?
__________________
Проблема решена.