| Autor |
Beitrag |
DAZZLE
Hält's aus hier
Beiträge: 2
|
Verfasst: Fr 12.09.08 22:38
Hallo,
ich bin noch ein totaler Anfänger im Programmieren und hab mal versucht mir ein Programm zum kopieren von Ordnern und Dateien zu basteln. Delphi 6.0 zeigt mir keinen fehler an aber das Programm kopiert nichts.
Ich hoffe ihr könnt mir helfen und den Unit berichtigen.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
| unit u_Kopieren;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DB, DBClient, Provider;
type
TForm1 = class(TForm)
lbl_Quelle: TLabel;
lbl_Ziel: TLabel;
edt_quelle: TEdit;
edt_ziel: TEdit;
rdg_auswahlQuelle: TRadioGroup;
btu_kopieren: TButton;
btu_kopieren2: TButton;
btu_abbrechen: TButton;
rdg_auswahlZiel: TRadioGroup;
procedure btu_abbrechenClick(Sender: TObject);
procedure btu_kopierenClick(Sender: TObject);
procedure btu_kopieren2Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
vQuelle, vZiel : string;
vRadioQuelle, vRadioZiel : Integer;
implementation
{$R *.dfm}
procedure TForm1.btu_abbrechenClick(Sender: TObject);
label Quelle;
begin
close;
end;
procedure TForm1.btu_kopierenClick(Sender: TObject);
begin
vRadioQuelle := (rdg_auswahlquelle.itemindex) ;
rdg_auswahlquelle.itemindex := vRadioQuelle;
vRadioZiel := (rdg_auswahlziel.ItemIndex) ;
rdg_auswahlziel.ItemIndex := vRadioZiel;
case vRadioQuelle of
1 : edt_quelle.Text := 'P:\Delphi';
2 : edt_quelle.Text := 'D:\Office\Delphi\IV-LK';
3 : edt_quelle.Text := 'Schulordner';
end;
case vRadioZiel of
1 : edt_Ziel.Text := 'P:\Delphi';
2 : edt_Ziel.Text := 'D:\Office\Delphi\IV-LK';
3 : edt_Ziel.Text := 'Schulordner';
end;
vQuelle := (edt_quelle.Text);
edt_quelle.Text := vQuelle;
vZiel := (edt_Ziel.text);
edt_ziel.Text := vZiel;
if not CopyFile(PChar(vQuelle), PChar(vZiel), true)
then
ShowMessage('Datei "'+vQuelle+'" konnte nicht kopiert werden!');
end;
procedure TForm1.btu_kopieren2Click(Sender: TObject);
begin
vRadioQuelle := (rdg_auswahlquelle.itemindex) ;
rdg_auswahlquelle.itemindex := vRadioQuelle;
vRadioZiel := (rdg_auswahlziel.ItemIndex) ;
rdg_auswahlziel.ItemIndex := vRadioZiel;
case vRadioQuelle of
1 : edt_quelle.Text := 'P:\Delphi';
2 : edt_quelle.Text := 'D:\Office\Delphi\IV-LK';
3 : edt_quelle.Text := 'ordner';
end;
case vRadioZiel of
1 : edt_Ziel.Text := 'P:\Delphi';
2 : edt_Ziel.Text := 'D:\Office\Delphi\IV-LK';
3 : edt_Ziel.Text := 'ordner';
end;
vQuelle := (edt_quelle.Text);
edt_quelle.Text := vQuelle;
vZiel := (edt_Ziel.text);
edt_ziel.Text := vZiel;
if not CopyFile(PChar(vQuelle), PChar(vZiel), false)
then
ShowMessage('Datei "'+vQuelle+'" konnte nicht kopiert werden!');
end;
end. |
Vielen Dank DAZZLE
Moderiert von  Gausi: Delphi-Tags hinzugefügt
|
|
jaenicke
 
Beiträge: 19345
Erhaltene Danke: 1753
W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Fr 12.09.08 23:18
Naja, also dein Aufruf von CopyFile sieht mir so aus als würdest du Ordner statt Dateien übergeben, naja und Copy File hört sich irgendwie so an als müsstest du einen Dateinamen angeben, findest du nicht? 
Du müsstest um Ordner zu kopieren die Dateien darin suchen und alle kopieren.
Außerdem, was soll das denn werden?   Delphi-Quelltext
1:
2:
| vZiel := (edt_Ziel.text);
edt_ziel.Text := vZiel; | In edt_Ziel muss der Inhalt von vZiel ja schon drin sein, du hast es ja da her geholt . Die zweite Zeile kannst du dir sparen.
Zuletzt bearbeitet von jaenicke am Fr 12.09.08 23:24, insgesamt 2-mal bearbeitet
|
|
Boldar
Beiträge: 1555
Erhaltene Danke: 70
Win7 Enterprise 64bit, Win XP SP2
Turbo Delphi
|
Verfasst: Fr 12.09.08 23:19
Also:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
| unit u_Kopieren;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DB, DBClient, Provider;
type
TForm1 = class(TForm)
lbl_Quelle: TLabel;
lbl_Ziel: TLabel;
edt_quelle: TEdit;
edt_ziel: TEdit;
rdg_auswahlQuelle: TRadioGroup;
btu_kopieren: TButton;
btu_kopieren2: TButton;
btu_abbrechen: TButton;
rdg_auswahlZiel: TRadioGroup;
procedure btu_abbrechenClick(Sender: TObject);
procedure btu_kopierenClick(Sender: TObject);
procedure btu_kopieren2Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
vQuelle, vZiel : string;
vRadioQuelle, vRadioZiel : Integer;
implementation
{$R *.dfm}
procedure TForm1.btu_abbrechenClick(Sender: TObject);
label Quelle;
begin
close;
end;procedure TForm1.btu_kopierenClick(Sender: TObject);
begin
vRadioQuelle := (rdg_auswahlquelle.itemindex) ;
rdg_auswahlquelle.itemindex := vRadioQuelle;
vRadioZiel := (rdg_auswahlziel.ItemIndex) ;
rdg_auswahlziel.ItemIndex := vRadioZiel; case vRadioQuelle of
1 : edt_quelle.Text := 'P:\Delphi';
2 : edt_quelle.Text := 'D:\Office\Delphi\IV-LK';
3 : edt_quelle.Text := 'Schulordner';
end;
case vRadioZiel of
1 : edt_Ziel.Text := 'P:\Delphi';
2 : edt_Ziel.Text := 'D:\Office\Delphi\IV-LK';
3 : edt_Ziel.Text := 'Schulordner';
end;
vQuelle := (edt_quelle.Text);
edt_quelle.Text := vQuelle;
vZiel := (edt_Ziel.text);
edt_ziel.Text := vZiel;
if not CopyFile(PChar(vQuelle), PChar(vZiel), true)
then
ShowMessage('Datei "'+vQuelle+'" konnte nicht kopiert werden!');
end;
procedure TForm1.btu_kopieren2Click(Sender: TObject);
begin
vRadioQuelle := (rdg_auswahlquelle.itemindex) ;
rdg_auswahlquelle.itemindex := vRadioQuelle;
vRadioZiel := (rdg_auswahlziel.ItemIndex) ;
rdg_auswahlziel.ItemIndex := vRadioZiel;
case vRadioQuelle of
1 : edt_quelle.Text := 'P:\Delphi';
2 : edt_quelle.Text := 'D:\Office\Delphi\IV-LK';
3 : edt_quelle.Text := 'ordner';
end;
case vRadioZiel of
1 : edt_Ziel.Text := 'P:\Delphi';
2 : edt_Ziel.Text := 'D:\Office\Delphi\IV-LK';
3 : edt_Ziel.Text := 'ordner';
end;
vQuelle := (edt_quelle.Text);
edt_quelle.Text := vQuelle;
vZiel := (edt_Ziel.text);
edt_ziel.Text := vZiel;
if not CopyFile(PChar(vQuelle), PChar(vZiel), false)
then
ShowMessage('Datei "'+vQuelle+'" konnte nicht kopiert werden!');
end;
end. |
edith sagt: mist, zu langsam
|
|
|
