Gesucht: FileCopy...

[pluto]

ich habe noch mal zwei proceduren für dich:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  mem : TMemoryStream;
  FilePathA, FilePathB : String;
begin
  FilePathA := Edit1.Text; // Pfad der zu kopierenden Datei
  FilePathB := Edit2.Text; // Zielpfad
  mem := TMemoryStream.Create;
  try
    mem.LoadFromFile(filePathA);
    mem.SaveToFile(FilepathB);
  finally
    mem.Free;
  end;
end;
 
uses
 ShellApi;
 
function CopyFileEx(const ASource, ADest: String;
 ARenameCheck: boolean = false): boolean;
var
  sh: TSHFileOpStruct;
begin
  sh.Wnd := Application.Handle;
  sh.wFunc := FO_COPY;
 
  // String muss mit #0#0 Terminiert werden, um das Listenende zu setzen
  sh.pFrom := PChar(ASource + #0);
  sh.pTo := PChar(ADest + #0);
  sh.fFlags := fof_Silent or fof_MultiDestFiles;
  if ARenameCheck then
    sh.fFlags := sh.fFlags or fof_RenameOnCollision;
  Result:=ShFileOperation(sh)=0;
end;

gefunden bei
http://www.dsdt.info/tipps/

[Quit]

Ich habs nun ENDLICH geschafft. Und zwar mit dem orginalen Filecopy. Du hast mir den besten Link dazu gegeben - danke

Code: Alles auswählen

if CopyFile(PChar(ParamStr(1)), PChar(ParamStr(1) + '555'), False) then

[pluto]

(gleich in die WissnDB mit aufnehmen !

[Quit]

Wär was. Mein Fehler war, dass ich strings statt Ansi-Strings verwendete - der Compiler meckerte nicht, es ging einfach nicht..

[pluto]

Daran habe ich auch schon stunden gesesen*G* das es nur mit PChar geht !!!

[Christian]

Pluto deine funktion macht eh das selbe wie die original lcl funktion wozu ist die also gut ?

[pluto]

sie scheint ja nicht zu funktionieren warum weiß ich nicht !
getestet habe ich sie nicht !

Ich dachte wenn die original funktionieren nicht geht könnte meine laufen
(ohne PChar)

[Christian]

Die originalfunktionen funktionieren schon dazu werden die zu oft genutzt als das die nich laufen