8 |
IdTCPClient, IdHTTP, xmldom, XMLIntf, msxmldom, XMLDoc, IniFiles, AppEvnts, |
IdTCPClient, IdHTTP, xmldom, XMLIntf, msxmldom, XMLDoc, IniFiles, AppEvnts, |
9 |
Menus, ExtCtrls, ComCtrls, StrUtils, MMSystem, DateUtils, |
Menus, ExtCtrls, ComCtrls, StrUtils, MMSystem, DateUtils, |
10 |
IdExplicitTLSClientServerBase, IdFTP, pngimage, GIFImg, IdException, |
IdExplicitTLSClientServerBase, IdFTP, pngimage, GIFImg, IdException, |
11 |
Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet |
Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet, |
12 |
|
UITypes |
13 |
|
|
14 |
; |
; |
15 |
|
|
16 |
type |
type |
537 |
crlf = Chr(13) + Chr(10) ; // Carriage return & Linefeed |
crlf = Chr(13) + Chr(10) ; // Carriage return & Linefeed |
538 |
var |
var |
539 |
printerInd : integer; |
printerInd : integer; |
|
i : Integer; |
|
|
// 20150310: start |
|
540 |
gemScanningtype : String; |
gemScanningtype : String; |
|
// 20150310: slut |
|
541 |
|
|
542 |
begin |
begin |
543 |
// Initierer nogle variabler |
// Initierer nogle variabler |
1168 |
URLStr : String; |
URLStr : String; |
1169 |
Pakketype : String; |
Pakketype : String; |
1170 |
Pakkescanningtype : String; |
Pakkescanningtype : String; |
|
//List1msg : String; |
|
1171 |
|
|
1172 |
begin |
begin |
1173 |
|
|
1600 |
|
|
1601 |
StregKode := ''; |
StregKode := ''; |
1602 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1603 |
|
|
1604 |
exit; |
exit; |
1605 |
end; |
end; |
1606 |
Stregkode := ''; |
Stregkode := ''; |
1927 |
end; |
end; |
1928 |
|
|
1929 |
procedure TMainForm.InitBladhus(); |
procedure TMainForm.InitBladhus(); |
|
var |
|
|
LogFilnavn : string; |
|
1930 |
|
|
1931 |
begin |
begin |
1932 |
Altidprintepakkelabel1.Enabled := false; |
Altidprintepakkelabel1.Enabled := false; |
3210 |
BoghandlerNavn : String; |
BoghandlerNavn : String; |
3211 |
Koreliste : String; |
Koreliste : String; |
3212 |
Falsk : Boolean; |
Falsk : Boolean; |
|
Sand : Boolean; |
|
3213 |
SmsKode : String; |
SmsKode : String; |
3214 |
DBKbane : String; |
DBKbane : String; |
3215 |
Leveringssted : String; |
Leveringssted : String; |
3236 |
else |
else |
3237 |
begin |
begin |
3238 |
Falsk := False; |
Falsk := False; |
3239 |
Sand := True; |
|
3240 |
HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, ''); |
HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, ''); |
3241 |
UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, ''); |
UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, ''); |
3242 |
SmsKode := '999999'; |
SmsKode := '999999'; |
3256 |
BoghandlerNavn : String; |
BoghandlerNavn : String; |
3257 |
Koreliste : String; |
Koreliste : String; |
3258 |
Falsk : Boolean; |
Falsk : Boolean; |
|
Sand : Boolean; |
|
3259 |
SmsKode : String; |
SmsKode : String; |
3260 |
DBKbane : String; |
DBKbane : String; |
3261 |
Leveringssted : String; |
Leveringssted : String; |
3264 |
Kommentar := '***** Kommentar *****'; |
Kommentar := '***** Kommentar *****'; |
3265 |
BoghandlerNavn := 'Modtagernavn'; |
BoghandlerNavn := 'Modtagernavn'; |
3266 |
Falsk := False; |
Falsk := False; |
3267 |
Sand := True; |
|
3268 |
|
|
3269 |
if (Printer.Printers.Count = 0) then |
if (Printer.Printers.Count = 0) then |
3270 |
begin |
begin |
3822 |
|
|
3823 |
// Hvorfor virker ovenstående ikke ??? |
// Hvorfor virker ovenstående ikke ??? |
3824 |
S := ''; |
S := ''; |
3825 |
Str(iVer[1],Result); |
Str(iVer[1], Result); |
3826 |
S := S+Result+'.'; |
S := S+Result+'.'; |
3827 |
Str(iVer[2],Result); |
Str(iVer[2], Result); |
3828 |
S := S+Result+'.'; |
S := S+Result+'.'; |
3829 |
Str(iVer[3],Result); |
Str(iVer[3], Result); |
3830 |
S := S+Result+'.'; |
S := S+Result+'.'; |
3831 |
Str(iVer[4],Result); |
Str(iVer[4], Result); |
3832 |
S := S+Result+''; |
S := S+Result+''; |
3833 |
Result := S; |
Result := S; |
3834 |
end; |
end; |
4662 |
antlinIdag := 0; |
antlinIdag := 0; |
4663 |
antlinSenere := 0; |
antlinSenere := 0; |
4664 |
|
|
|
antalFelterFundet := 0; |
|
4665 |
for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin |
for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin |
4666 |
Node:= XMLDocument1.DocumentElement.ChildNodes[I]; |
Node:= XMLDocument1.DocumentElement.ChildNodes[I]; |
4667 |
if Node.NodeType = ntElement then begin |
if Node.NodeType = ntElement then begin |
4931 |
procedure TMainForm.SkrivScanningLogFil(var tekst : string); |
procedure TMainForm.SkrivScanningLogFil(var tekst : string); |
4932 |
var |
var |
4933 |
SomeTxtFile : TextFile; |
SomeTxtFile : TextFile; |
|
buffer : string; |
|
|
S: string; |
|
4934 |
idag, imorgen : TDateTime; |
idag, imorgen : TDateTime; |
4935 |
imorgenYmd : string; |
imorgenYmd : string; |
4936 |
logFilnavn : string; |
logFilnavn : string; |