| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

XML и зависание главной формы

Страницы:   < 1 2 3 >

Student :) ©   (2008-03-03 13:23:00) 

Привет всем знатокам!!
вопрос есть некий XML документ на сервере Я ЕГО загружаю и парсю но при этом процесе
главная форма зависает ! как мне ето обойти ? без потоков делаю так.

procedure TForm1.Button1Click(Sender: TObject);
var
//CityID: string;
CoDoc: CoDOMDocument;
XMLD: DOMDocument;
r: IXMLDOMElement;
FNode: IXMLDOMNode;
i,y: integer;
begin
XMLD:=CoDoc.Create ;
XMLD.async:=false;
URL:=ComboBox1.Text;
XMLD.load(URL);
////////////////////////// здесь чтото не так  
while not XMLD.load(URL) do
Application.ProcessMessages;
////////////////////////////
memo1.Clear;
listbox1.Clear;
r:=XMLD.documentElement;
FNode:= r.SelectSingleNode('//rss');
if FNode.attributes.getNamedItem('version').text<>'2.0'
then
 begin
  Memo1.Lines.Add('error no 2.0');
  Exit;
 end;

---

Reindeer Moss Eater   (2008-03-03 13:49:00) [41]

два раза лоад для надежности?
:)

---

Student :)   (2008-03-03 13:45:00) [42]

к сожелению не кто не знает :(

---

Student :)   (2008-03-03 13:32:00) [43]

Уважаемые а как переделать? и прогресс бар бы привязать

---

Palladin   (2008-03-03 13:25:00) [44]

> ////////////////////////// здесь чтото не так  while not
> XMLD.load(URL) do Application.ProcessMessages; ////////////////////////////

ага :) что то не так...

---

Страницы:   < 1 2 3 >

Наверх