Скачать: CL | DM;

createprocess   Найти похожие ветки 

← →
nika   (2007-11-26 09:46) [0]

при запуске 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);
возникает ошибка Произошел сбой в программе инициализации библиотеки динамической компоновки
хотя при запуске с командной строки пакет отрабатывается

---

← →
Иванов   (2007-11-26 10:56) [1]

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

---

← →
nika   (2007-11-26 14:54) [2]

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c