Вот, сразу видно что человек хочет чб ему помогли... всё конкретно сказал что требуется и сорец приложил чб подправили...
Оценил код... попробовал поюзать... у меня вообще аж папка с сорцом повисла О_о
Теперь вроде раздуплилась...
Чб всё не висло думаю нуна юзать поток отдельный, под запрос, а интерфейс пусть работает в 1ом (нулевом) потоке...
И кстати, там в конце идёт сохранение файла из мемо в какой то рандомный хтмл файл... чего я почему то не узрел...
Продолжаю изучать... мож ещё чего предложу...
И так...
По моему программа тормозит именно в function cook
PHP код:
while str[i] <> ';' do
begin
result:=result+str[i];inc(i);
end;
если вынесешь эту прцедуру в отдельный поток, то проблемы с подвисанием думаю больше не будет, нужно пробовать...
и почему то не только в этой функции тормозит...
Помоему она тормозит ещё и на этапе form1.Memo1.text:=Idsock(0);
вызов которой уже в самом конце, до этого не так сильно...
Да! именно тут и тормозит... почему то... в первый раз не тормозит... на втором вызове тормозит... вопрос почему?
И кстати иероглифов я чё то вообще не заметил...
Её тоже в поток пробовал выносить?