Re: Delphi - problem z plikami na innym kompie

2017-10-19T05:18:17+01:00

Oczywiście Panie Mirku rozumiem to, że nie ma Pan czasu na analizę mojego kodu.
Jestem bardzo wdzięczny, że zechciał Pan uruchomić program u siebie i spradzić czy działa.
Taka informacja już pozwala mi wyciągnąć odpowiednie wnioski co robić dalej.
Bardzo dziękuję za pomoc.

------------------------------ Rozwiązanie problemu ----------------------------------

Wstyd się przyznać, że tego nie sprawdziłem...

Statystyki: Napisane przez ANT — 19 paź 2017, o 05:18

Re: Delphi - problem z plikami na innym kompie

2017-10-18T22:08:20+01:00

Nie mam pojęcia jak działa ten kod, nie mam absolutnie czasu na jego analizę (mam nadzieję, że mi to wybaczysz bo mam MILION innych zajęć a o tej godzinie - 23:04 jestem w pracy i jeszcze popracuję dzisiaj chyba do 3-4

ale z ciekawości - odpaliłem ten twój kod - i OD TEGO trzeba było w ogóle zacząć od podania źródła

więc zobacz - specjalnie stworzyłem nowy projekt w Delphi 10 Tokyo , następnie odpaliłem maszynę wirtualną ze starym DZIADKIEM win XP

i prosze oto co uzyskałem

a zatem twój kod z powodzeniem działa na starym dziadku albo babci Win XP

Statystyki: Napisane przez mirekk36 — 18 paź 2017, o 22:08

Re: Delphi - problem z plikami na innym kompie

2017-10-18T20:44:46+01:00

Oczywiście przeprszam za tak mało informacji i już nadrabiam

Program służy do generowania kodu kreskowego wykorzystując system CODE 128.
Program w pliku wykonywalnym EXE pracuje poprawnie na Win10 tam gdzie mam zainstalowanego Delphi.
Nie chce się natomiast uruchomić na komputerze z WinXP.
Wiem, że to staroć ale mam taką potrzebę aby na tym systemie równiez działał.

Poniżej podaję cały kod programu.
Dziwna jest sprawa bo napisałem kilka krótszych programików (powiedzmy takich testowych) i one działają na WinXP.

[syntax=delphi]unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.StrUtils, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure Tablica128;
procedure ZnakKreskowy;
procedure Wyswietl;
procedure Linia;
procedure Przerwa;
procedure Button1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

//-------------------------------- VAR ----------------------------------------
var
Form1 : TForm1;
LiniaX : Integer;
Licznik1 : Integer;
Licznik2 : Integer;
NrZnaku : Integer;
Suma : Integer;
Tekst1 : String;
Tekst2 : String;
Znak : String;
Tablica : array[0..106] of String;

//---------------------------- IMPLEMENTATION ---------------------------------
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
//Wczytanie tablicy znaków kodu kreskowego 128.
Tablica128;

//Przygotowanie pola do wyświetlania kodu kreskowego.
Image1.Canvas.MoveTo(0, 0);
end;

//Wyświetlanie kodu kreskowego.
procedure TForm1.Edit1Change(Sender: TObject);
begin
//Wyczyszczenie pola pod wyświetlenie kodu kreskowego.
LiniaX := 0;
Image1.Canvas.MoveTo(0, 0);
Image1.picture := Nil;

//Wyświetlenie znaku START B.
NrZnaku := 104;
Wyswietl;
Suma := 104;

//Wyświetlenie kodu kreskowego z wprowadzonego tekstu w pola EDIT.
Tekst2 := Edit1.Text;

for Licznik2 := 1 to Length(Tekst2) do
begin
NrZnaku := Ord(Tekst2[Licznik2])-32;
Wyswietl;
Suma := Suma + (NrZnaku * Licznik2);
end;

//Wyświetlenie znaku sumy kontrolnej.
NrZnaku := Suma mod 103;
Wyswietl;

//Wyświetlenie znaku STOP.
NrZnaku := 106;
Wyswietl;
end;

//Wyświetlenie kodu kreskowego przy wciśnięciu przycisku BUTTON.
procedure TForm1.Button1Click(Sender: TObject);
begin
end;

//Procedura wyświetlająca kod kreskowy.
procedure TForm1.Wyswietl;
begin
Tekst1 := Tablica[NrZnaku];

for Licznik1 := 1 to 6 do
begin
ZnakKreskowy;
end;

if NrZnaku = 106 then
begin
Licznik1 := 7;
ZnakKreskowy;
end;
end;

//Procedura budująca znak kreskowy.
procedure TForm1.ZnakKreskowy;
begin
Znak := Tekst1[Licznik1];

if (Licznik1 = 1) or (Licznik1 = 3) or (Licznik1 = 5) or (Licznik1 = 7) then
begin
if Znak = '1' then Linia;
if Znak = '2' then
begin
Linia; Linia;
end;
if Znak = '3' then
begin
Linia; Linia; Linia;
end;
if Znak = '4' then
begin
Linia; Linia; Linia; Linia;
end;
end;

if (Licznik1 = 2) or (Licznik1 = 4) or (Licznik1 = 6) then
begin
if Znak = '1' then Przerwa;
if Znak = '2' then
begin
Przerwa; Przerwa;
end;
if Znak = '3' then
begin
Przerwa; Przerwa; Przerwa;
end;
if Znak = '4' then
begin
Przerwa; Przerwa; Przerwa; Przerwa;
end;
end;
end;

//Procedura kreśląca linię w kodzie kreskowym.
procedure TForm1.Linia;
begin
Image1.Canvas.Pen.Color := clBlack;
Image1.Canvas.MoveTo(LiniaX, 0);
Image1.Canvas.LineTo(LiniaX, Image1.Height);
LiniaX := LiniaX + 1;
Image1.Canvas.MoveTo(LiniaX, 0);
Image1.Canvas.LineTo(LiniaX, Image1.Height);
LiniaX := LiniaX + 1;
end;

//Procedury kreśląca przerwę w kodzie kreskowym.
procedure TForm1.Przerwa;
begin
Image1.Canvas.Pen.Color := clWhite;
Image1.Canvas.MoveTo(LiniaX, 0);
Image1.Canvas.LineTo(LiniaX, Image1.Height);
LiniaX := LiniaX + 1;
Image1.Canvas.MoveTo(LiniaX, 0);
Image1.Canvas.LineTo(LiniaX, Image1.Height);
LiniaX := LiniaX + 1;
end;

//Tablica znaków kodu kreskowego 128.
procedure TForm1.Tablica128;
begin
Tablica[0] := '212222';
Tablica[1] := '222122';
Tablica[2] := '222221';
Tablica[3] := '121223';
Tablica[4] := '121322';
Tablica[5] := '131222';
Tablica[6] := '122213';
Tablica[7] := '122312';
Tablica[8] := '132212';
Tablica[9] := '221213';
Tablica[10] := '221312';
Tablica[11] := '231212';
Tablica[12] := '112232';
Tablica[13] := '122132';
Tablica[14] := '122231';
Tablica[15] := '113222';
Tablica[16] := '123122';
Tablica[17] := '123221';
Tablica[18] := '223211';
Tablica[19] := '221132';
Tablica[20] := '221231';
Tablica[21] := '213212';
Tablica[22] := '223112';
Tablica[23] := '312131';
Tablica[24] := '311222';
Tablica[25] := '321122';
Tablica[26] := '321221';
Tablica[27] := '312212';
Tablica[28] := '322112';
Tablica[29] := '322211';
Tablica[30] := '212123';
Tablica[31] := '212321';
Tablica[32] := '232121';
Tablica[33] := '111323';
Tablica[34] := '131123';
Tablica[35] := '131321';
Tablica[36] := '112313';
Tablica[37] := '132113';
Tablica[38] := '132311';
Tablica[39] := '211313';
Tablica[40] := '231113';
Tablica[41] := '231311';
Tablica[42] := '112133';
Tablica[43] := '112331';
Tablica[44] := '132131';
Tablica[45] := '113123';
Tablica[46] := '113321';
Tablica[47] := '133121';
Tablica[48] := '313121';
Tablica[49] := '211331';
Tablica[50] := '231131';
Tablica[51] := '213113';
Tablica[52] := '213311';
Tablica[53] := '213131';
Tablica[54] := '311123';
Tablica[55] := '311321';
Tablica[56] := '331121';
Tablica[57] := '312113';
Tablica[58] := '312311';
Tablica[59] := '332111';
Tablica[60] := '314111';
Tablica[61] := '221411';
Tablica[62] := '431111';
Tablica[63] := '111224';
Tablica[64] := '111422';
Tablica[65] := '121124';
Tablica[66] := '121421';
Tablica[67] := '141122';
Tablica[68] := '141221';
Tablica[69] := '112214';
Tablica[70] := '112412';
Tablica[71] := '122114';
Tablica[72] := '122411';
Tablica[73] := '142112';
Tablica[74] := '142211';
Tablica[75] := '241211';
Tablica[76] := '221114';
Tablica[77] := '413111';
Tablica[78] := '241112';
Tablica[79] := '134111';
Tablica[80] := '111242';
Tablica[81] := '121142';
Tablica[82] := '121241';
Tablica[83] := '114212';
Tablica[84] := '124112';
Tablica[85] := '124211';
Tablica[86] := '411212';
Tablica[87] := '421112';
Tablica[88] := '421211';
Tablica[89] := '212141';
Tablica[90] := '214121';
Tablica[91] := '412121';
Tablica[92] := '111143';
Tablica[93] := '111341';
Tablica[94] := '131141';
Tablica[95] := '114113';
Tablica[96] := '114311';
Tablica[97] := '411113';
Tablica[98] := '411311';
Tablica[99] := '113141';
Tablica[100] := '114131';
Tablica[101] := '311141';
Tablica[102] := '411131';
Tablica[103] := '211412';
Tablica[104] := '211214';
Tablica[105] := '211232';
Tablica[106] := '2331112';
end;

end.[/syntax]
Pewnie znowu brakuje mi wiedzy i coś robię nie tak jak trzeba
Poproszę o pomoc.

Statystyki: Napisane przez ANT — 18 paź 2017, o 20:44

Re: Delphi - problem z plikami na innym kompie

2017-10-18T20:13:52+01:00

Panie, no nie wiedząc co to za program, co on robi a przede wszystkim gdzie chce coś zapisywać - bo na tym polu widać jakiś komunikat błędu - to raczej zadanie dla dobrego wróżbity z certyfikatem jasnowidza

Ja tam kompiluję swoje programy i odpalają się na każdym windowsie bo tu chodzi o windowsa a nie o komputer. A pomiędzy windowsami są różnice np co do zezwoleń na zapis w niektórych folderach systemowych - długo by o tym gadać i zgadywać

Statystyki: Napisane przez mirekk36 — 18 paź 2017, o 20:13

Delphi - problem z plikami na innym kompie

2017-10-18T19:44:08+01:00

Witam,

Nie wiem od czego to zależy ale niektóre programy napisane w Delphi
przeniesione na drugi komputer działają a inne niestety nie chcą.

Wyświetla mi się taki komunikat:

Może mieliście z tym tez problem? Gdzie szukać przyczyny?

Pozdrawiam.

Statystyki: Napisane przez ANT — 18 paź 2017, o 19:44

ATNEL tech-forum

Re: Delphi - problem z plikami na innym kompie

Re: Delphi - problem z plikami na innym kompie

Re: Delphi - problem z plikami na innym kompie

Re: Delphi - problem z plikami na innym kompie

Delphi - problem z plikami na innym kompie