| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

createprocess [D7, WinXP]

nika ©   (2007-11-26 09:46:00) 

при запуске dts пакета s:='dtsrun /S '+cValue+' /U '+fmLogin.edtLogin.Text+' /P '+fmLogin.edtParol.Text+' /N Givz2007 ' +
' /L d:\temp\log.txt ' ;
showmessage(s);
si.wShowWindow := SW_HIDE;
Res := CreateProcess(nil,PCHAR(s),
nil, nil, true, NORMAL_PRIORITY_CLASS, @env, nil, si, pi);
возникает ошибка Произошел сбой в программе инициализации библиотеки динамической компоновки
хотя при запуске с командной строки пакет отрабатывается

---

nika   (2007-11-26 14:54:00) [1]

path:=GetCurrentDir();
 SaveDialogGivz.FileName:='givz.dbf';

 if SaveDialogGivz.Execute = true then
 begin
   fillchar(si, sizeof(si),#0);
   si.cb := sizeof(si) ;
   sdir := ExtractFileDir(SaveDialogGivz.FileName) ;
   sfile := ExtractFileName(SaveDialogGivz.FileName);
   cFile := PChar(ExtractFilePath(application.ExeName)+'Abonent.ini');
   GetPrivateProfileString('Server','Name','Server',cValue,255,cFile);
   showmessage(fmLogin.edtLogin.Text) ;
   showmessage(fmLogin.edtParol.Text) ;
   showmessage(cValue);
   //s:= ' dtsrun /S sirius /U sa /P burzum /N Givz2007 ' ;
   s:='dtsrun /S '+cValue+' /U '+fmLogin.edtLogin.Text+' /P '+fmLogin.edtParol.Text+' /N Givz2007 ' +
      ' /L d:\temp\log.txt ' ;

     //  ' /A Year:4="'+ edtYear.text+'" ' +
     //  ' /A Month:2="'+ IntToStr(cbxMonth.ItemIndex+1)+'" ' +
    //   ' /A OtdelCode:2="'+qrySprOtdel.FieldByName('OtdelCode').AsString+'"'+

        //' /A FileName:8="'+SaveDialogGivz.FileName+'" ' +
 showmessage(s);
 si.wShowWindow := SW_HIDE;
 Res := CreateProcess(nil,PCHAR(s), nil, nil, true, NORMAL_PRIORITY_CLASS, @env, nil, si, pi);
 if not Res then
 begin
  //ErrMessage;
  exit
 end;
 WaitForSingleObject(pi.hProcess, infinite);
 if not GetExitCodeProcess(pi.hProcess, Buff) then
 begin
 // ErrMessage;
  exit
 end;

 if Buff = 0 then
 begin
   //DeleteFile(SaveDialogGivz.FileName)
 end
 else
   MessageBox(handle, 'Процедура завершена c ошибками !',
                 'Формирование данных для собеса', MB_OK + MB_ICONWARNING);

   SetCurrentDir(path);
   Close;
 end;

 end;

---

Иванов   (2007-11-26 10:56:00) [2]

Нужен полный код и реальное содержимое командной строки.

---

Наверх