;{ DDT SESTAVA - STANDARD                                                                              }
;{ Skript pro aktualizaci ddt skriptu pro import a export objednávek a ceníku                          }
;{ Verze: 27.10.2009                                                                                   }
;{ Autor: WinDUO Team (BRM)                                                                            }

Name('Aktualizace DDT')
Designed('WinDUO')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Aktualizace DDT')

;{*******************************************************************************************************************************}

WNSType(-1)

DeclareRec('Program')

INIPath    :String=DataPath+'svsexmli.ini'
f          :TextFile
Soubor     :String
SouborLogu :String

;{*******************************************************************************************************************************}
;{nacteni ini}

WWWStranka  :String=GetFromIni('Global','WWWStranka',INIPath)
WWWUzivatel :String=GetFromIni('Global','WWWUzivatel',INIPath)
WWWHeslo    :String=GetFromIni('Global','WWWHeslo',INIPath)

if(Length(WWWStranka)=0)
  WWWStranka='http://www.winduo.cz/download/skripty/svseddt.ddt';

;{*******************************************************************************************************************************}
;{formulář}

DefDialog('Aktualizace DDT',445,185)
DlgShade(-1,'',5,5,435,110)

DlgStatic(-1,'Adresa',15,15,200,16)
DlgEdit(110,WWWStranka,15,33,415)

DlgStatic(-1,'Uživatel',15,60,200,16)
DlgEdit(120,WWWUzivatel,15,78,200)

DlgStatic(-1,'Heslo',230,60,100,16)
DlgEdit(130,WWWHeslo,230,78,200,,,es_Password)

DlgButton(id_OK,'OK',305,120);
DlgOnLineHelp(id_OK,'Pokračuje ve zpracování')
DlgButton(id_Cancel,'Zpět',375,120);
DlgOnLineHelp(id_Cancel,'Ukončí bez zpracování')

Result:Integer=DlgExecute()

if(Result=ID_Cancel)
  Halt

;{*******************************************************************************************************************************}
;{ulozeni ini}

SetToIni('Global','WWWStranka', WWWStranka, INIPath)
SetToIni('Global','WWWUzivatel', WWWUzivatel, INIPath)
SetToIni('Global','WWWHeslo', WWWHeslo, INIPath)

;{*******************************************************************************************************************************}
;{program}

InitStatus(1, 'Import DDT souborů')
SetStatus(0)
NewPost();
AddToPost('cesta','skripty');
SeznamSouboru:String='xxx.log' ;GetTempFileName()
HTTPPost(WWWStranka+'/httpddt.php', SeznamSouboru, WWWUzivatel, WWWHeslo)
Open(f,SeznamSouboru)
InitStatus(FileSize(f), 'Zpracovávám importní soubory')
while(not eof(f))
  begin
    Soubor=ReadLn(f)
    SetStatus(FilePos(f))
    HTTPGet(WWWStranka+'/skripty/'+Soubor, Soubor, WWWUzivatel, WWWHeslo)
  end
Close(f)

END