Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Запись изображения в файл Добавлено: 05.12.05 16:17  

Автор вопроса:  Tamplier | ICQ: 298742928 
Да непростая... Надо бы в идеале запихать ее в файл ч/з Binary. И ч/з Random не помешает. Но поскольку догадываюся, что сие невозможно то как еще? Переименование файла не предлагать.

Ответить

  Ответы Всего ответов: 5  

Номер ответа: 1
Автор ответа:
 Dushes



ICQ: 249195431 

Вопросов: 8
Ответов: 110
 Профиль | | #1 Добавлено: 05.12.05 16:20
Ничо не понял....

Ответить

Номер ответа: 2
Автор ответа:
 «UL.eXe»



ICQ: 197.895.916.247 

Вопросов: 72
Ответов: 540
 Профиль | | #2 Добавлено: 05.12.05 18:37
??? (тоже ничего не понял)
Так как никто ничего не понял, попробуй воспользоваться SavePicture или растолкуй вопрос попонятнее..

Ответить

Номер ответа: 3
Автор ответа:
 Tamplier



ICQ: 298742928 

Вопросов: 58
Ответов: 340
 Профиль | | #3 Добавлено: 07.12.05 19:23
короче, надо сохранить изображение. Но не используя
SavePicture
.
Вот, допустим, есть файл, к которому открыт доступ
Open FileName For Binary Access Read Write Lock Read Write As FileNum Len = LenString

или
Open FileName For Random Access Read Write Lock Read Write As FileNum Len = LenString

Можно ли не закрывая файл прицепить туда изображение, исесина потом корректно вынуть. Или Закрыть файл, открыть заново, добавить изображение и закрыть. Только чтоб изображение было в одном файле с записями.
Отдельное сохранение
SavePicture
и последовательное переименование файла не предлагать.

Ответить

Номер ответа: 4
Автор ответа:
 Victor



ICQ: 345743490 

Вопросов: 42
Ответов: 385
 Web-сайт: vt-dbnz.narod.ru
 Профиль | | #4
Добавлено: 07.12.05 21:44
Создай UDT:
Type Pict
  BMI as BITMAPINFO
  Bits() as Byte
  'можно еще что-нибудь, если потребуется
End Type

Дальше перед сохранением применяешь GetDIBits, заполняешь структуру. А затем
Put FileNum, Позиция, Pic 'Pic As Pict

Это для Binary.
Теперь достать - точно так же.
Get FileNum,?,Pic

Потом применяешь SetDIBits.

Ответить

Номер ответа: 5
Автор ответа:
 Tamplier



ICQ: 298742928 

Вопросов: 58
Ответов: 340
 Профиль | | #5 Добавлено: 09.12.05 17:05
Спасибо

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам