HPC.ru lite - Все форумы
Форум: Программирование для КПК
Тема: Спецы подскажите, что за ниппель?

[Ответить]
XGarik [29.09.2005 20:34] Спецы подскажите, что за ниппель?:
Заметил тут недавно странный баг или так и должно быть?

Код Delphi для копирования файла на КПК (использование библиотеки RAPI.DLL):

procedure TForm1.Button1Click(Sender: TObject);
var
sTemplate:TStringList;
HDes:THandle;
o1overlapped;
BytesWrittenWORD;
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 байт. И на КПК создается пустой файл. ПОЧЕМУ?
mokaton [30.09.2005 01:00] :
А ты не думал потому что у тебя как раз и создается пустой файл!?
XGarik [30.09.2005 10:16] :
Дело в том, что первая выделенная строка вполне адекватно копирует файл в ПЗУ (файл не пустой), а вот если вместо нее влепить че-нить другое \test1.xml, то прога просто создаст пустой файл т.е. функция CEWriteFile работает только через ПЗУ! Вчера сидел с и диву давался, почему прога вдруг не копирует, а просто создает пустышки! В принципе я нашел решение проблемы - копирование в ПЗУ, а затем перемещение ф-ей CEMoveFile куда нужно, но все ровно очень интересно! Спецы просветите!
[Ответить]