OpenDialog Datein öffnen und woanders speichern...?

[Teklab]

Hi,

Also ich habe eine kleines Programm geschrieben womit man Weblinks verwalten
kann schön übersichtlich mit Kategorien, Unterkategorien und Beschreibung.

Da ich soetwas nicht im Internet gefunden habe und sowas brauch, weil ich den
Favoriten Ordner schon so manches mal bei meiner XP Neuinstallation gelöscht
hatte.

So ich möchte irgend wie wenn ich auf Daten Importieren klick auswählen können
wo meine beiden XML Datenbank Datein sind (Kategorie.xml und Website.xml) dann
möchte ich sie in meinem Programmverzeichniss speichern....

1. Wie weiß mein Prog, in welchem Pfad es liegt?
2. Wie kann ich z.B. mit dem OpenDialog eine Datei öffnen und woanders speichern?
Wenn ich OpenDialog.Files.SavetoFiles('website.xml'); ausführe schreibt er nur
den Dateinamen plus Pfad in eine neu angelegte Datei.

Das Daten exportieren in ein anderes Verzeichniss ist ja dann selbstklärend
wenn ich weiß wie diese beiden sachen funzen...

Ps. wenn einer ein gutes Programm weiß zum Verwalten von Links dann sag ers mir bitte

[freak4fun]

hallo

mit opendialog erhältst du den Ort wo die datei liegt,
mit Savedialog erhältst du den Ort wo die datei hinsoll,
jetzt musst du die Datei auch noch dort hinkopieren. zB CopyFile

mfg
freak

[Bowler]

Also zu Punkt 1 kann ich dir empfehlen, die die Application.ExeName-Eigenschaft in Verbindung mit der Funktion ExtractFilePath anzuschauen.

Bei Punkt 2 weiss ich leider nicht so recht, was du meinst. Ich habe noch nie mit Files.SaveToFiles gearbeitet, und weiss gerade nicht, was diese Funktion bewirkt.

Wenn Du mit dem OpenDialog Datein öffnen willst, um sie woanders zu speichern (=kopieren), dann habe ich das bisher immer so gemacht, dass ich für jede Datei eine Kopier-Funktion aufgerufen habe.

Gruß

[goodvirus]

Kannst es auch so machen wenn du die datei kopieen willst und zwingend mit OpenDial arbeitest.

Delphi-Quellcode:

OpenDialog1.Execute;
OpenDialog1.Files.LoadFromFile(OpenDialog1.FileName);
OpenDialog1.Files.SaveToFile('test.txt');

Die Datei Test.txt erscheint in dem Ordner wo du andere geladen hast, musst halt nur vorher den Pfad angeben wo sie hinsoll dann is das Prob auch gelößt.

Und wenn du den Pfad deiner eigenden exe willst dann so

Delphi-Quellcode:

var 
strg: String; 
begin 
strg := extractfilepath(application.exename); 
//oder 
strg := extractfilepath(paramstr(0)); 
end;

[Ultimator]

Müsste so passen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var M:Tmemorystream;
begin
  M:=TMemorystream.Create;
  M.LoadFromFile(OpenDialog1.FileName);
  M.SaveToFile(ExtractFilePath(Application.Exename));
end;

[Bowler]

Hast Du bei SaveToFile nicht den Dateinamen hinter dem Pfad vergessen? Oder merkt sich TMemoryStream den vom Öffnen?

[Teklab]

Ok danke für die schnelle Hilfe

werde mich dann nachher mal ransetzen und es ausprobieren.
kann das Prog ja dann wenns fertig ist und Interesse besteht
reinstelln.

[freak4fun]

ok mach das

mfg
freak

[Teklab]

Noch eine Frage wie bekomme ich NUR den Dateinamen raus von der Datei die ich eben geladen habe? Ohne Verzeichnisspfad?

[The Re@l]

Hi

Code:

ExtractFileName(opendialog1.filename);

sollte so gehen.