P2k Multimedia Edit, Редактор медиа содержимого |
Здравствуйте, гость ( Вход | Регистрация ) |
P2k Multimedia Edit, Редактор медиа содержимого |
Vovan_mail |
20.5.2005, 7:52
|
Мастер Группа: Пользователи Сообщений: 166 Регистрация: 20.12.2004 Из: г. Смоленск Пользователь №: 28 543 Модель телефона: Z3 - Z6 Прошивка: R452B_G_08.02.0DR Рейтинг: 26 |
|
Vovan_mail |
22.5.2005, 7:07
|
Мастер Группа: Пользователи Сообщений: 166 Регистрация: 20.12.2004 Из: г. Смоленск Пользователь №: 28 543 Модель телефона: Z3 - Z6 Прошивка: R452B_G_08.02.0DR Рейтинг: 26 |
Народ вот какая хрень:
procedure TOne.SaveLabClick(Sender: TObject); var Buf: array[0..235]of Byte; Handle:integer; begin File_Delete('/a/mobile/picture/Scheme.gif'); SizeSave:=GetFileSize('C:\Scheme.gif'); Handle:=FileOpen('C:\Scheme.gif',fmOpenReadWrite); FileRead(Handle,Buf,SizeSave); File_Create('/a/mobile/picture/Scheme.gif',0); File_Write(Buf,SizeSave-1); FileClose(Handle); File_Close; end; Таким вот образом работает безспорно и чётко, тобишь когда выделяешь чётко буфер по размеру файла. Но если делаешь это как динамический массив: procedure TOne.SaveLabClick(Sender: TObject); var Buf: array of Byte; Handle:integer; begin File_Delete('/a/mobile/picture/Scheme.gif'); SizeSave:=GetFileSize('C:\Scheme.gif'); Handle:=FileOpen('C:\Scheme.gif',fmOpenReadWrite); SetLength(Buf,SizeSave); FileRead(Handle,Buf,SizeSave); File_Create('/a/mobile/picture/Scheme.gif',0); File_Write(Buf,SizeSave-1); FileClose(Handle); File_Close; end; zootaz; Вылетает в ошибку, кто знает в чём фишка? Может dll не рулит с динамическими массивами? |
Текстовая версия | Сейчас: 26.9.2024, 14:55 |
Форум живёт: