![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Фрейм расположен на 1 главной форме, приведённый код работает в потоке, должен сохранять картинку в папку ,но иногда перестаёт перезаписывать картинку и останавливается.
Код:
Fix: TMemoryStream;
png: TPNGObject;
begin
Fix := TMemoryStream.Create;
png := TPNGObject.Create;
Form1.Frame11.idhttp1.Get('http://www.work.net/captcha/captcha-st/captcha.php?sid=' + sid, Fix);
Fix.Position := 0;
png.LoadFromStream(Fix);
png.SaveToFile('accounts\akk' + Form1.Frame11.label1.Caption + '/' + '1.png');
Fix.Free;
png.Free;
end; |
|
#2
|
|||
|
|||
|
критическая секция для Form1.Frame11.idhttp1.Get().
А вообще лучше свой TidHTTP в каждом потоке. Тогда ошибаться не будет. |
| Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
swprist (26.02.2020)
| ||