|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
TMemoryStream в потоке 1 из 10 ошибка
Фрейм расположен на 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)
|