VPF::[Excel, COM, Stream] Файл в эксель через поток.

CROTishka

Дата 26.10.2010, 12:44 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 192
Регистрация: 30.7.2009

Репутация: нет
Всего: 2

есть поток с кселевским файлом, его нужно покласть в открытую книгу.
некто Geoff Darst из Microsoft VSTO Team божится что должно проканать
( http://social.msdn.microsoft.com/Forums/en...62-354b61294968 )
у меня получилось как-то примерно так, если оставить только значимое:

Код


var
  tmpIStream, NewIStream: IStream;
  NewStorage: IStorage;
  FExcel: IDispatch;
  FExcelApp: _Application;
  ExcelPersistStorage: IPersistStorage;
  WB: ExcelWorkbook;
  MemoryHandle: HGLOBAL;
  x: ILockBytes;
  Res: HRESULT;
  flag: cardinal;
  tmpStream: TStream;
  size, DoesNotMatter1, DoesNotMatter2: int64;
  P: pointer;
  DoesNotMatter3: PLongint;
..................

    FExcel := CreateOleObject('Excel.Application');
    Res := FExcel.QueryInterface(_Application, FExcelApp);
    Res := FExcelApp.QueryInterface(IPersistStreamInit, ExcelPersistStorage);
    WB := FExcelApp.Workbooks.Add(1, LOCALE_USER_DEFAULT);
    Res := WB.QueryInterface(IPersistStorage , ExcelPersistStorage);

    MemoryHandle := GlobalAlloc(GMEM_MOVEABLE or GMEM_NODISCARD, 0);
    Res := CreateILockBytesOnHGlobal(MemoryHandle, true, x);
    flag := STGM_CREATE or STGM_READWRITE or STGM_SHARE_EXCLUSIVE or STGM_TRANSACTED;
    Res := StgCreateDocfileOnILockBytes(x, flag, 0, NewStorage);
    flag := STGM_SHARE_EXCLUSIVE;
    Res := NewStorage.CreateStream(PChar('ExcelMemoryStream'), flag, 0, 0, NewIStream);
  
    tmpStream := GetStream(Grid);
    tmpIStream := TStreamAdapter.Create(tmpStream);
    Res := tmpIStream.CopyTo(NewIStream, size + 1, DoesNotMatter1, DoesNotMatter2);
// тут я в дебагере проверяю, что лежит в новом NewIStream, там лежит что надо.
    Res := ExcelPersistStorage.Load(NewStorage);
// тут я получаю Res  = STG_E_FILENOTFOUND =(
........

но вот что-то не проканывает =(
что я делаю не так?
может с флагами накосячил?

Это сообщение отредактировал(а) CROTishka - 26.10.2010, 12:46

CROTishka

Дата 3.12.2010, 13:46 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 192
Регистрация: 30.7.2009

Репутация: нет
Всего: 2

вверх, всё ещё актуально.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »