Timage, ошибка

[Smallboy]

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

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

вот код:

procedure 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.BitMap.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;
//   ScanBtn.Enabled:=False;
   LoadImg();
end;

[Кольша]

Image1.Picture.LoadFromFile(CreateName);

просто picture.

[Smallboy]

если просто Pictute то получается вот что:

[DCC Error] NewAnketa.pas(207): E2066 Missing operator or semicolon
[DCC Error] NewAnketa.pas(207): E2014 Statement expected, but expression of type 'TPicture' found

как мне кажется разгадка кроется тут, но не могу понять в чем дело:

При пошаговой компиляции картинка загружается отлично, но при работе приложения -ничего.

[Пепел Феникса]

скорее всего ваш файл не создается.
вы же не ждете пока ваше приложение-сканнер закончит работу.

[Smallboy]

создается, это точно. Перед закрытием приложения-сканера, оно выдает сообщение -- файл сохранен, и пока не нажать "ОК" программа дальше не продолжает работать. В этот момент файл уже существует (проверял).
Да и дальнейшие действия с файлом проходят успешно...

P.S. самое интересное, что если запустить сканирование 2-й раз, то видно как загружается старый файл

[Пепел Феникса]

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

создается, это точно. Перед закрытием приложения-сканера, оно выдает сообщение -- файл сохранен, и пока не нажать "ОК" программа дальше не продолжает работать. В этот момент файл уже существует (проверял).
Да и дальнейшие действия с файлом проходят успешно...

P.S. самое интересное, что если запустить сканирование 2-й раз, то видно как загружается старый файл

ТС, WinExec не ждет завершения программы, потому на момент вызова файла еще нет.
вам надо ждать пока ваше приложение отработает и лишь потом грузить файл.

[Smallboy]

Сообщение от Пепел Феникса

ТС, WinExec не ждет завершения программы, потому на момент вызова файла еще нет.
вам надо ждать пока ваше приложение отработает и лишь потом грузить файл.

Да, вы правы! Спасибо большое?
sleep(10000); помогло

Может подскажете каким образом можно сделать проверку на завершение процесса приложения?

[Кольша]

Uses tlhelp32;
... 
function IsRunning(sName: string): boolean; // проверяет, запущен ли процесс sName
var
  han: THandle;
  ProcStruct: PROCESSENTRY32;
  sID: string;
begin
  Result := false;
 
  han := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
  if han = 0 then
    exit;
 
 
  ProcStruct.dwSize := sizeof(PROCESSENTRY32);
  if Process32First(han, ProcStruct) then
  begin
    repeat
      sID := ExtractFileName(ProcStruct.szExeFile);
 
      if uppercase(copy(sId, 1, length(sName))) = uppercase(sName) then
      begin
 
        Result := true;
        Break;
      end;
    until not Process32Next(han, ProcStruct);
  end;
 
  CloseHandle(han);
end;
....
whie IsRunning('DemoButtonsProject.exe') do
sleep(500);

[northener]

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

Да, вы правы! Спасибо большое?
sleep(10000); помогло

Может подскажете каким образом можно сделать проверку на завершение процесса приложения?

CreateProcess + WaitForSingleObject

[Пепел Феникса]

ТС, смотрите в сторону CreateProcess.