Хотите раскрутить свой сайт в Яндекс и Google?
Недорогое и качественное продвижение сайта от 50$

Delphi 1

Динамическое OLE

Некоторое время тому назад вы задавали вопрос по поводу динамического OLE без создания диалогового окна для просмотра файла. Я таки добился этого и вот код...

Uses

..., BOleDefs, ...

procedure TPreview.previewOLEFile(fileName: string);
var

Info: ^BOleInitInfo;

cString: array[0..80] of char;

begin

Screen.Cursor := crHourGlass;

try

GetMem(Info,sizeof(BoleInitInfo));

Info^.How := BOLE_EMBED;

Info^.Where := BOLE_FILE;

Info^.pContainer := nil;

Info^.hIcon := 0;

Info^.Storage := nil;

StrPCopy(cString,fileName);

Info^.Path := cString;

oleDocument.PInitInfo := Info;

ReleaseOLEInitInfo(Info); { данная функция освобождает (getmem) память ! }

oleDocument.Visible := True;

finally

Screen.Cursor := crDefault;

end;

[000510]

2012-02-07 14:27:59 - Не могу записать данные в файл: /home/aptemne/public_html/xapsdflkjs789s7sffsh553/cache_aptem_net_ru_1c.txt
2012-02-07 14:27:59 - Не могу записать данные в файл: /home/aptemne/public_html/xapsdflkjs789s7sffsh553/cache_aptem_net_ru_1c.txt
2012-02-07 14:28:00 - Не могу записать данные в файл: /home/aptemne/public_html/xapsdflkjs789s7sffsh553/cache_aptem_net_ru_1c.txt

Материалы, которые находятся на этой страничке, любезно предоставлены Игорем Ивановым

РЕКЛАМНЫЙ БЛОК