|
#1
|
|||
|
|||
TImage, ошибка
Добрый день! Нужна помощь в следующем вопросе! Недавно судьба свела меня с делфи. И вот возникла непонятная для меня ситуация. Есть 2 процедуры. Процедура ScanBtnClick -- сканирует изображение с планшета и сохраняет его в папку. Процедура LoadImg должна загружать изображение.
Плохо отрабатывает вот эта строка: Image1.Picture.LoadFromFile(CreateName); При пошаговой компиляции все отлично, но при работе приложения -- картинка не загружается. вот код: Код:
rocedure TForm2.LoadImg(); // загружаем подпись на экран для просмотра var CreateName : string; ScanPath : string; begin IniA:=TiniFile.Create(extractfilepath(paramstr(0))+'Anketa.ini'); ScanPath:= IniA.ReadString('Path','ScanPath',''); CreateName:=ScanPath+Fname.Text+Sname.Text+Fdate.Text+'.bmp'; IniA.Free; if FileExists(CreateName) = true then begin Image1.Picture.LoadFromFile(CreateName); // Application.ProcessMessages; end; end; procedure TForm2.ScanBtnClick(Sender: TObject); begin if (Fname.Text='') and (Sname.Text='') and (Tname.Text='') and (Pasport.Text='') then //проверка на заполнение полей перед сканированием Showmessage('Для сканирования подписи заполните все поля!') else begin IniA:=TiniFile.Create(extractfilepath(paramstr(0))+'Anketa.ini'); IniA.WriteString('LastClientData','Fname',Fname.Text); IniA.WriteString('LastClientData','Sname',Sname.Text); IniA.WriteString('LastClientData','Tname',Tname.Text); IniA.WriteString('LastClientData','Date',Fdate.Text); IniA.Free; try Winexec('E:\D7\N1\menu\DemoButtonsProject.exe',SW_SHOW); except Showmessage('Ошибка сканирования!') end; end; LoadImg(); end; |
#2
|
||||
|
||||
Попробуй после загрузки вызвать Update.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#3
|
|||
|
|||
Если под сканированием подразумевается запуск внешней программы(DemoButtonsProject.exe), то Ваша процедура просто не дожидается окончания её работы. Нужно запускать не через WinExec, а через CreateProcess (ну чуть посложнее), и затем дожидаться завершения этого процесса.
|
#4
|
|||
|
|||
Цитата:
Все верно, именно в этом и дело! Спасибо за помощь! |