Datenübertragung PC -> PPC

[Christian Seehase]

Moin Ekladius,

ich hab's mal für die lokale Anwendung (also ohne die CeXXXX Funktionen) umgebaut, und ein wenig verändert.
Wichtigster Unterschied:
Ich hab' mal die Overlapped Angaben in ReadFile und WriteFile weggenommen.

Schau's Dir doch mal in Ruhe an. (und Denk, wenn's denn funktioniert, dran, die entsprechenden Funktionen wieder mit dem Präfix Ce zu versehen )

Delphi-Quellcode:

var
  hsrc   : DWORD;
  hdes   : DWORD;
  Buffer : Pointer;
  BytesToRead : DWORD;
  BytesReading : DWORD;
  BytesWritten : DWORD;
  dwSize       : DWORD;

begin
  HSrc := CreateFile ('c:\test.txt',Generic_Read ,File_Share_Read ,nil,Open_Existing,0,0);
  HDes := CreateFile ('c:\test2.txt',Generic_Write,File_Share_Write,nil,Create_Always,0,0);
  try
    dwSize := GetFileSize(HSrc,nil);
    Buffer := AllocMem(dwSize);
    try
      BytesToRead := GetFileSize (HSrc, nil);
      ReadFile    (HSrc, Buffer^, BytesToRead, BytesReading, nil);
      WriteFile   (HDes, Buffer^, BytesReading, BytesWritten, nil);
    finally
      FreeMem(Buffer,dwSize);
    end;
  finally
    CloseHandle (HSrc);
    CloseHandle (HDes);
  end;
end;