файл ресурсов

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
ali_x
Начинающий
Начинающий
 
Сообщения: 21
Зарегистрирован: 05.09.2005 (Пн) 8:27

файл ресурсов

Сообщение ali_x » 17.09.2005 (Сб) 13:23

Помогите пожалуйста, как загузить книгу excel и базу д-х access из файла ресурсов?

ANDLL
Великий гастроном
Великий гастроном
Аватара пользователя
 
Сообщения: 3450
Зарегистрирован: 29.06.2003 (Вс) 18:55

Сообщение ANDLL » 17.09.2005 (Сб) 13:43

Или юзать IStream(при наличии надлежащих знаний) или просто записывать содержимое ресурса во временный файл и открывать стандартным путем.
Гастрономия - наука о пище, о ее приготовлении, употреблении, переварении и испражнении.
Блог

ali_x
Начинающий
Начинающий
 
Сообщения: 21
Зарегистрирован: 05.09.2005 (Пн) 8:27

Сообщение ali_x » 17.09.2005 (Сб) 18:00

Если не сложно скиньте примерный код.

ali_x
Начинающий
Начинающий
 
Сообщения: 21
Зарегистрирован: 05.09.2005 (Пн) 8:27

Сообщение ali_x » 18.09.2005 (Вс) 9:38

делаю так:

Open "c:\1" For Binary As #1
Put #1, , LoadResData(101, "CUSTOM") '101 это книга excel
Set exWb = exApp.Workbooks.Open("C:\1")

В итоге, в открытой книге excel какая-то охинея, люди, что я неправильно делаю?

ANDLL
Великий гастроном
Великий гастроном
Аватара пользователя
 
Сообщения: 3450
Зарегистрирован: 29.06.2003 (Вс) 18:55

Сообщение ANDLL » 18.09.2005 (Вс) 10:25

Код: Выделить всё
Open "c:\1" For Output As #1
? #1, , LoadResData(101, "CUSTOM") '101 это книга excel
Set exWb = exApp.Workbooks.Open("C:\1")

Может, так лучше?
Гастрономия - наука о пище, о ее приготовлении, употреблении, переварении и испражнении.
Блог

ali_x
Начинающий
Начинающий
 
Сообщения: 21
Зарегистрирован: 05.09.2005 (Пн) 8:27

Сообщение ali_x » 18.09.2005 (Вс) 12:25

Не помогает... :cry:

BV
Thinker
Thinker
Аватара пользователя
 
Сообщения: 3987
Зарегистрирован: 12.09.2004 (Вс) 0:55
Откуда: Молдавия, г. Кишинёв

Сообщение BV » 18.09.2005 (Вс) 13:23

Сколько раз можно повторять: грузить из ресурсов надо в массив, потом массив и сохранять. При сохранении напрямую теряются байты!
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;

ali_x
Начинающий
Начинающий
 
Сообщения: 21
Зарегистрирован: 05.09.2005 (Пн) 8:27

Сообщение ali_x » 18.09.2005 (Вс) 13:26

Вот как это работает

Dim a() As Byte
Dim fn As Integer
a() = LoadResData(101, "CUSTOM")
fn = FreeFile
Open "C:\1.xls" For Binary Access Write As fn
Put #fn, , a()
Close #fn :wink:


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 2

    TopList  
cron