[Smallboy]

Добрый день! Нужна помощь в следующем вопросе! Недавно судьба свела меня с делфи. И вот возникла непонятная для меня ситуация. Есть 2 процедуры. Процедура ScanBtnClick -- сканирует изображение с планшета и сохраняет его в папку. Процедура LoadImg должна загружать изображение.

Плохо отрабатывает вот эта строка:
Image1.Picture.LoadFromFile(CreateName);
При пошаговой компиляции все отлично, но при работе приложения -- картинка не загружается.

вот код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

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;

[angvelem]

Попробуй после загрузки вызвать Update.

[icWasya]

Если под сканированием подразумевается запуск внешней программы(DemoButtonsProject.exe), то Ваша процедура просто не дожидается окончания её работы. Нужно запускать не через WinExec, а через CreateProcess (ну чуть посложнее), и затем дожидаться завершения этого процесса.

[Smallboy]

Сообщение от icWasya

Если под сканированием подразумевается запуск внешней программы(DemoButtonsProject.exe), то Ваша процедура просто не дожидается окончания её работы. Нужно запускать не через WinExec, а через CreateProcess (ну чуть посложнее), и затем дожидаться завершения этого процесса.

Все верно, именно в этом и дело! Спасибо за помощь!