12. Februar 2007 15:46
12. Februar 2007 15:55
"""c:\Navibar.exe 000100{11{120{60{c:\temp\bild.bmp"""
12. Februar 2007 16:00
Das Betriebssystem findet den Pfad nicht, den Sie für die Datei "'c:\navibar.exe 000100{11{120{60{c:\temp\bild.bmp'" eingegeben haben.
12. Februar 2007 21:11
PROCEDURE ExecNavibar@1000000093();
VAR
BarcodePicturePath@1000000000 : Text[250];
NavibarProgram@1000000001 : Text[250];
NavibarCommand@1000000011 : Text[500];
TypeString@1000000003 : Text[30];
Value@1000000008 : Text[30];
Type@1000000002 : Integer;
Successful@1000000004 : Integer;
WindowStyle@1000000006 : Integer;
WaitOnReturn@1000000007 : Integer;
Width@1000000009 : Integer;
Height@1000000010 : Integer;
WshShell@1000000005 : Automation "{F935DC20-1CF0-11D0-ADB9-00C04FD58A0B} 1.0:{72C24DD5-D70A-438B-8A42-98424B88AFB8}:'Windows Script Host Object Model'.WshShell";
BEGIN
BarcodePicturePath := 'C:\Temp\tempimage.bmp';
NavibarProgram := 'C:\Temp\Navibar.exe';
Type := 11;
WindowStyle := 0;
WaitOnReturn := 1;
Value := '000100';
Width := 120;
Height := 60;
TypeString := FORMAT(Type);
IF Type < 10 THEN BEGIN
TypeString := '0' + TypeString;
END;
NavibarCommand :=
'"' + NavibarProgram + '"' +
STRSUBSTNO(' %1%2%3%4%5',
' ' + Value + '{', // Code to generate
TypeString + '{', // Barcodetype
FORMAT(Width) + '{', // Width in pixel
FORMAT(Height) + '{', // Height in pixel
BarcodePicturePath);
CREATE(WshShell);
Successful := WshShell.Run(NavibarCommand, WindowStyle, WaitOnReturn);
CLEAR(WshShell);
END;
12. Februar 2007 22:30
13. Februar 2007 11:17
IF NOT ae.GET("No.","Sales Unit of Measure") THEN CLEAR (ae);
IF ae."Item No."<> '' THEN BEGIN
ok:= SHELL(STRSUBSTNO('%1%2%3%4%5%6',
'c:\navibar.exe', // Programm
' ' + ae."Item No."+'{', // code to generate
'01'+'{', // barcodetype
'120'+'{', // width in pixel
'60'+'{', // high in pixel
'c:\temp\bild.bmp')); // destination for the .bmp-file
Picture.IMPORT('c:\temp\bild.bmp');
END;
Sie führen zum ersten Mal die folgende Datei aus:
Ausführbare Datei: c:\navibar.exe 101101{11{120{60{c:\temp\bild.bmp
Parameter:
Beachten Sie, dass Sie möglicherweise eine Datei ausführen,
die Schaden auf Ihrem Computer anrichten kann.
Halten Sie diese ausführbare Datei und ihre Parameter für vertrauenswürdig?
---------------------------
Ja Nein
---------------------------
Der Name der Datei "c:\navibar.exe 0724{11{120{60{c:\temp\bild.bmp" enthält ein ungültiges Zeichen.
Prüfen Sie bitte den Dateinamen. Lesen Sie in Ihrem Betriebssystemhandbuch nach, wie gültige Dateinamen definiert sind.
13. Februar 2007 17:25
14. Februar 2007 08:28
Code-Teile stammen aus dem Beitrag von MiBuSO
Es sollte eine Mindestanzahl von Parametern angegeben werden, wenn Sie diese Funktion aufrufen. Zum Beispiel:
MeineFunktion( .. , .. , .. )
ROUND(MeineVariable)
ROUND(MeineVariable,0.05)
14. Februar 2007 09:20
mk-gfx hat geschrieben:die Prozedur CheckFileCreated wird nicht aufgerufen... fehler meldung ist:
PROCEDURE CheckFileCreated@1000000007(lBolExit@1000000000 : Boolean;lRecFile@1000000001 : Record 2000000022;lIntCount@1000000002 : Integer);
BEGIN
lBolExit := FALSE;
lIntCount := 0;
REPEAT
lIntCount += 1;
lRecFile.RESET;
lRecFile.SETRANGE(Path,'c:\temp');
lRecFile.SETRANGE("Is a file",TRUE);
lRecFile.SETRANGE(Name,Item."No." + '.bmp');
IF lRecFile.FIND('-') THEN
lBolExit := TRUE
ELSE BEGIN
lRecFile.SETRANGE(Path,'c:\');
IF lRecFile.FIND('-') THEN;
SLEEP(100);
END;
UNTIL lBolExit OR (lIntCount > 1000);
END;
14. Februar 2007 09:36
Die Funktion "CheckFileCreated" erwartet das du Parameter übergibst:
lBolExit
lRecFile
lIntCount
14. Februar 2007 10:17
CheckFileCreated(DEIN_BOOL,DEIN_Rec_File,DEIN_Integer);
14. Februar 2007 11:47
14. Februar 2007 12:05
mikka hat geschrieben:Hmm,
ist der Report noch Original?
Weil z.B. "lRecFile" auf die Systemtabelle "File" zeigt, also müsste hier ein entsprechender Record übergeben werden.
Ich kann aber keinen solchen finden (ausser in "CheckFileCreated").
14. Februar 2007 12:15
Danke Mikka...
ich versuche ja eben auch die dieses CheckFileCreated ohne Parameter zu übergeben... jedoch ohne erfolg...
OhneParemeter()
MitParameter(ErwarteWert : Integer;ErwarteRecord : Record Item)
14. Februar 2007 12:23
14. Februar 2007 12:25
Musste grade feststellen das ich keine file tabelle habe... ist sie versteckt?
15. Februar 2007 08:13
15. Februar 2007 10:31