Hi,
I can copy file from desktop to device.
But when I put out pocket pc from computer then again put on pocket pc to
computer, my program never copy file again. CeCreateFile method returns -1
value.
I have to close application then run again to copy file.
Any help will be appreciated.
Sample code
CeRapiInit;
FStream := TFileStream.Create(XMLFile, fmOpenRead + fmShareDenyNone);
try
DataStream := FStream;
try
StringToWideChar('\My Documents\NetsimSS\' + XMLFile, Name,
Sizeof(Name));
Handle := CeCreateFile(Name,GENERIC_WRITE,FILE_SHARE_READ,
nil,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);
if Handle <> -1 then
begin
while not (DataStream.Position = DataStream.Size) do
begin
if (DataStream.Size - DataStream.Position) >= BlockSize then
Size := BlockSize
else
Size := DataStream.Size - DataStream.Position;
DataStream.Read(Buffer, Size);
Trim(Buffer);
if not CeWriteFile(Handle, @Buffer, Size, NumberOfBytesWritten,
nil) then
ShowMessage(SysErrorMessage(GetRapiError));
end;
if not CeCloseHandle(Handle) then
ShowMessage(SysErrorMessage(ceGetLastError));
end
except
on e:Exception do
ShowMessage(e.Message);
end;
finally
FStream.Free;
CeRapiUnInit;
end;
--
Harun BOLAT