Ошибка API ф-ии библиотеки RAPI.DLL? [D7, WinXP]
XGarik © (2005-09-30 12:04:00)
Доброго времени суток!
Заметил тут недавно странный баг или так и должно быть?
Код Delphi для копирования файла на КПК (использование
библиотеки RAPI.DLL):
procedure TForm1.Button1Click(Sender: TObject);
var
sTemplate:TStringList;
HDes:THandle;
o1:Poverlapped;
BytesWritten:DWORD;
begin
sTemplate:=TStringList.Create;
sTemplate.LoadFromFile('test.xml');
cerapiinit;
HDes := CeCreateFile ('\ipaq file
store\test.xml',Generic_Write,File_Share_Write,nil,Create_Always,0,0);
CEWriteFile(HDes,PChar(sTemplate.Text),Length(sTemplate.Text),BytesWritten,@o1);
CECloseHandle(HDes);
CERapiUninit;
showmessage('Скопировано: '+inttostr(BytesWritten) + '
байт');
end;
Обратите внимание на выделенную строку и первый параметр ф-ии
CECreateFile... Правильно, это значит создать файл test.xml в ПЗУ.
А теперь попробуем изменить путь так:
HDes := CeCreateFile
('\test.xml',Generic_Write,File_Share_Write,nil,Create_Always,0,0);
Программа выдает сообщение, что скопировано 0 байт. И на КПК
создается пустой файл. ПОЧЕМУ?
//Этот пост я уже делал, но он был закрыт! Приношу свои
извинения модератору, за неправильно сформулированную тему!
:)
jack128 (2005-09-30 17:02:00) [1]
GeGetLastError что говорит??
Наверх 
ЧАТ |
Орешник |
|
