Pfad zum mobilen Gerät

[msysteme]

Hi,
hier der Code funktioniert!

procedure TForm1.CopyPCtoCE(PCfromFile: PChar; CEtoFile: PWideChar);
var
hsrc : DWORD;
hdes : DWORD;
Buffer : Pointer;
BytesToRead : DWORD;
BytesReading : DWORD;
BytesWritten : DWORD;
dwSize : DWORD;
begin
CeRapiInit;
HSrc := CreateFile (PCFromFile,Generic_Read ,File_Share_Read ,nil,Open_Existing,0,0);
HDes := CECreateFile(CEtoFile,Generic_Write,File_Share_Wri te,nil,Create_Always,0,0);
try
dwSize := GetFileSize(HSrc,nil);
Buffer := AllocMem(dwSize);
try
BytesToRead := GetFileSize (HSrc, nil);
ReadFile(HSrc, Buffer^, BytesToRead, BytesReading, nil);
CEWriteFile(HDes, @Buffer^, BytesReading, BytesWritten, nil);
finally
FreeMem(Buffer,dwSize);
end;
finally
CECloseHandle (HDes);
CloseHandle (HSrc);
CeRapiUnInit;
end;

end;


procedure TForm1.Button1Click(Sender: TObject);
begin
CopyPCtoCE('c:\d7cover.jpg','\my documents\d7cover.jpg');
end;



Aber besser noch die Variante: CE nach PC passt gut auf habe mich richtig reingehangen.

procedure TForm1.CopyCEtoPC(CEfromFile: PWideChar; PCtoFile: PChar);
var
hsrc : DWORD;
hdes : DWORD;
Buffer : Pointer;
BytesToRead : DWORD;
BytesReading : DWORD;
BytesWritten : DWORD;
dwSize : DWORD;
begin
CeRapiInit;
HSrc := CECreateFile (CEfromFile,Generic_Read ,File_Share_Read ,nil,Open_Existing,0,0);
HDes := CreateFile(PCtoFile,Generic_Write,File_Share_Write ,nil,Create_Always,0,0);
try
dwSize := CEGetFileSize(HSrc, nil); // @Buffer^ wenn dann ist es nur dieser Pointer
Buffer := AllocMem(dwSize);
try
BytesToRead := CEGetFileSize (HSrc, nil); //@Buffer^
CEReadFile(HSrc, @Buffer^, BytestoRead, BytesReading, nil);
WriteFile(HDes, Buffer^, BytesReading, BytesWritten, nil);
finally
FreeMem(Buffer,dwSize);
end;
finally
CECloseHandle (HSrc);
CloseHandle (HDes);
CeRapiUnInit;
end;
end;


Ich bin neu hier und hoffen auch mal geholfen zu haben.