Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.12.23;
Скачать: 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 вся ветка

Текущий архив: 2007.12.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
3-1187100144
Мистик
2007-08-14 18:02
2007.12.23
прямой доступ


3-1187492065
ChaoX
2007-08-19 06:54
2007.12.23
TBlobField и приведение типов


2-1195811107
Phoenix
2007-11-23 12:45
2007.12.23
Можно ли в парадоксе в запросе вытащить год из даты?


4-1181202427
dimaxx
2007-06-07 11:47
2007.12.23
Работа с флоппиком на уровне секторов в ХРюше


2-1196233150
zeman
2007-11-28 09:59
2007.12.23
Class not found