dateien kopieren

Sinjai · Beiträge: 39 xp Delphi 7

hi ich wollte mal fragen wie ich einen button(oder ein komponente) so konfiguriere, das sie aus einem vorher im quellcode festgelegtem ordner eine datein oder einen ordenr in ein vorher duch ein edit feld angegebenes verzeichnis kopiert. habe delphi 7

elundril · Verfasst: Do 20.03.08 15:01

guckst du da -> www.delphi-forum.de/...ght=ordner+l%F6schen

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

Sinjai · Beiträge: 39 xp Delphi 7

da gehts leider ums löschen

elundril · Verfasst: Do 20.03.08 15:06

zweiter beitrag, erste funktion im quelltext. lesen musst du dann schon selber.

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

Sinjai · Beiträge: 39 xp Delphi 7

und was muss ich da konfigurieren damit ich weiß von wo anch wo?

elundril · Verfasst: Do 20.03.08 15:11

du musst die funktion einfach nur aufrufen und als parameter übergibst du in klammern den Ordner zum kopieren und den zielordner. das wars schon.

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

Sinjai · Beiträge: 39 xp Delphi 7

er sagt SHellApi ist ein undefinierbarer bezeichner

Timosch · Beiträge: 1314 Debian Squeeze, Win 7 Prof. D7 Pers

Sinjai hat folgendes geschrieben:

er sagt SHellApi ist ein undefinierbarer bezeichner

Zeig mal bitte schön deinen Quelltext. Du musst ShellAPI ganz oben bei uses hinten dranhängen:

markieren

Delphi-Quelltext

1:
2:
3:

unit form1;
interface
uses forms, windows, ..., shellapi;

_________________
If liberty means anything at all, it means the right to tell people what they do not want to hear. - George Orwell

Sinjai · Beiträge: 39 xp Delphi 7

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button1Click(Sender: TObject);
begin
if CopyFile(PChar('C:\Datei.txt'), PChar('C:\Datei.neu.txt'), False) then
   Showmessage('Datei wurde kopiert')
 else
   RaiselastOSError;

end;

end.

was muss ich tun um da jetzt ein edit1 feld zu integrieren?also das ich anstatt C eine variable reinschreibe ( bei dem zielort) , dei vorher auf edit1 festgelegt wurde?

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Sinjai hat folgendes geschrieben:

was muss ich tun um da jetzt ein edit1 feld zu integrieren?also das ich anstatt C eine variable reinschreibe ( bei dem zielort) , dei vorher auf edit1 festgelegt wurde?

Zum bsp. dies lesen
www.christian-stelzm...rtikel/crashkurs.htm

Moderiert von Narses: Zitat repariert

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

Sinjai · Beiträge: 39 xp Delphi 7

omg danke für die tolle hilfe

Delphi-noooob · Hält's aus hier Beiträge: 4

also cih blick da auch nicht durch...

elundril · Verfasst: Fr 21.03.08 23:27

Schau. 'C:/Windows/Tskmgr.exe' ist ein String. auch edit1.text liefert einen String zurück. Das heist wenn du den Pfad aus einem edit haben willst musst du einfach nur den einen String durch den anderen ersetzen.

praktisch umgesetzt würde das dann so gehen:

Bei einem File:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
if CopyFile(PChar(edit1.text), PChar(Edit2.text), False) then 
   Showmessage('Datei wurde kopiert') 
 else 
   RaiselastOSError; 
end; 
end.

die procedure CopyFile ist von Delphi standardmäßig dabei. wenn du jetzt einen ordner kopieren willst musst du dir den quelltext von dem link verwenden.

Bei einem File:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
if CopyDir(PChar(edit1.text), PChar(Edit2.text)) then 
   Showmessage('Ordner wurde kopiert') 
 else 
   Showmessage('Kopieren fehlgeschlagen');
end; 
end.

war doch gar nicht so schwer. wahrscheindlich nur auf dem schlauch gestanden oder?

Falls es noch fragen gibt, hier werden sie geholfen!

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

Delphi-noooob · Hält's aus hier Beiträge: 4

hm stimmt, danke^^

Sinjai · Beiträge: 39 xp Delphi 7

aber kann ich es auch so machen das das edit1.text feld nur für den laufwerk buchstabe gilt?also das die ordner struktur shcoon angegeben ist...habe es im quelltext probiert einfach hinter dem (PChar(edit1.text):\Neuer Ordner, ...
aber das geht leider nicht, er meint nicht genügend parameter?

Sinjai · Beiträge: 39 xp Delphi 7

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button1Click(Sender: TObject); 
begin
if CopyFile(PChar('C:\Neuer Ordner\neu.txt'), PChar('edit1.text\Neuer Ordner\neu.txt'), False) then
   Showmessage('Datei wurde kopiert')
 else
   RaiselastOSError;
end;

end.

mein quelltext...

Yogu · Verfasst: Sa 22.03.08 16:54

Wenn du den Ordnerpfad aus einem Eingabefeld und einem konstanten String zusammensetzen willst, brauchst du den Operator +. Du musst den Text des Edits mit dem String in Anführungszeichen über diesen Operator verbinden.

markieren

Delphi-Quelltext

1:	Edit1.Text+'\Neuer Ordner\neu.txt'

Dabei musst du darauf achten, dass im Edit "C:" oder "D:" oder so ähnlich steht.

Sinjai · Beiträge: 39 xp Delphi 7

ahaaa danke jetzt hab ich'S...

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Sinjai hat folgendes geschrieben:

aber kann ich es auch so machen das das edit1.text feld nur für den laufwerk buchstabe gilt?also das die ordner struktur shcoon angegeben ist...habe es im quelltext probiert einfach hinter dem (PChar(edit1.text):Neuer Ordner, ...
aber das geht leider nicht, er meint nicht genügend parameter?

Die Fragen würden sich erübrigen wenn du dir mal den Crashkurs angeschaut hättest. :wink:

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

Sinjai · Beiträge: 39 xp Delphi 7

leider soll man im crash kurs komponenten nutzen, die in meinen komponenten plattten nicht vorhanden sind...

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme