Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Сети
Войти
Регистрация
Восстановить пароль
 
LLLaa
0 / 0 / 0
Регистрация: 23.10.2014
Сообщений: 1
1

Нужно исправить ошибку коде

26.10.2014, 10:35. Просмотров 328. Ответов 2
Метки нет (Все метки)

Delphi
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
var
 
  idHTTP, idHTTP1: TIdHTTP;
  Cache, title, img, classN, s, fileName, fName, fullLink ,swfL, PathImages, PathFlash: string;
  href, titleID, kartinka, swfLink : Variant;
    V: OleVariant;
    Links: TStringList;
    i, j, intGMax, intG, k, m, u : integer;
    DocTable, DocA , DocAll, imgAll : IHTMLElementCollection;
    DocElement, a, divI, imgId, parent,swf, objId, embId  : IHtmlElement;
    Stream, PageContent :TMemoryStream;
    Doc: IHTMLDocument2; 
begin
 
     PathImages := Edit2.Text;     
 
     idHttp := TIdHTTP.Create(nil);
 
     idHttp1 := TIdHTTP.Create(nil);
 
     idHTTP.HandleRedirects:=true;
     idHTTP1.HandleRedirects:=true;
 
      Cache:=idHttp.Get(Edit1.Text);
 
 
      Doc:=coHTMLDocument.Create as IHTMLDocument2; 
      V:=VarArrayCreate([0,0], varVariant);
      V[0]:=Cache;
      Doc.Write(PSafeArray(TVarData(v).VArray));
 
      DocTable := Doc.all.tags('div') as IHTMLElementCollection;
 
      for I := 0 to DocTable.length - 1 do
      begin
          DocElement := DocTable.item(i, 0) as IHtmlElement;
          if(DocElement.className = 'GameInfo') then
          begin
              DocA := DocElement.all as IHTMLElementCollection;
              a := DocA.Item(0, 0) as IHtmlElement;
              href := a.getAttribute('href', 0);
              titleID := a.getAttribute('title', 0);
              imgAll := a.all as IHTMLElementCollection;
              imgId := imgAll.Item(0, 0) as IHtmlElement;
              kartinka := imgId.getAttribute('src', 0);
 
              s := VarToStr(href);
              fileName := ExtractFileNameEx(s);
              intG := Pos('.',fileName);
              fName := Copy(fileName, 1, intG-1);
 
              Stream:=TMemoryStream.Create;
              IdHTTP1.Get(kartinka,Stream);
              Stream.SaveToFile(PathImages + '\' + fName + '.jpg');
              Stream.Free;
 
              u := Pos(':',s);
              swfL := Copy(s, u+1, Length(s));
              fullLink := 'http://playpack.ru' + swfL;
 
 
          end;
 
      end;
 
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.10.2014, 10:35
Ответы с готовыми решениями:

Пустой ответ на GET-запрос. Исправить ошибку в коде
Всем привет! Нужна помощь!!! Код: if HTTP.HTTPMethod('GET',...

Нужно исправить ошибку
Помогите исправить ошибку в компоненте Alphaskin ...

Исправить ошибку в приведенном коде (ошибка выдается на первое else)
if y1=0 then y3:=1 and ...

Нужно найти ошибку в маленьком коде
В строчке где указывается диапазон цифр пишет ошибку,помогите её найти.Заранее...

найти ошибку в коде
Помогите найти ошибку в коде. нужно чтобы через кнопки загрузить и сохранить в...

2
smw1975
54 / 54 / 4
Регистрация: 15.12.2010
Сообщений: 258
27.10.2014, 17:23 2

Супер.
....
эээ, а какую ошибку-то исправить надо?
0
Dryg
27.10.2014, 22:37     Нужно исправить ошибку коде
  #3

Не по теме:

Да тут уже надо объявление писать, что мы не экстрасенсы

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.10.2014, 22:37
Привет! Вот еще темы с ответами:

исправить ошибку
нужно сделать так,стобы линейка scrolbar перемещалась при нажатии на кнопку да...

Не могу найти ошибку в коде
Нужно, чтобы программа показывала количество нечётных элементов массива. А у...

Помогите найти ошибку в коде!
Procedure Print_points (a:matr;i:integer;result:integer); Var j:integer;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru