Текущий архив: 2003.06.30;
Скачать: CL | DM;

Вниз

Интерфейс IStorage   Найти похожие ветки 

← →
JS   (2003-06-17 15:53) [0]

Люди, дайте, пожалуйста, ссылку на доку или пример использования в Delphi интерфейса IStorage.

Заранее благодарен.

---

← →
MBo ©   (2003-06-17 16:11) [1]

Книжка Хармона - там точно есть.
Возможно, есть и в книге Тенцера-Трепалина-Елмановой.
И в Тейксейре посмотри еще

---

← →
AlexT1000 ©   (2003-06-17 17:35) [2]

Вот маааленький пример кода

procedure TFormMain.SaveWork(FileName:string);
var MyStorage1,MyStorage:IStorage;
MyTxtStream :IStream;
SaveFunc :TSaveLoad;
n,i:integer;
s:string;
begin
MyStorage := nil;
OleCheck(StgCreateDocFile(PWideChar(WideString(FileName)),
STGM_READWRITE or STGM_SHARE_EXCLUSIVE or STGM_CREATE, 0, MyStorage));
{ MyStorage.CreateStorage(PWideChar(WideString("ListFile.sto")),
STGM_READWRITE or STGM_SHARE_EXCLUSIVE or STGM_CREATE, 0, 0, MyStorage1);
}
OleCheck(MyStorage.CreateStream(PWideChar(WideString("ListFile.txt")),
STGM_READWRITE or STGM_SHARE_EXCLUSIVE or STGM_CREATE, 0, 0, MyTxtStream));
s:= GameIni.FileName+#13;
// s := "VERSION=" + ProductsInfo[ProductNumber].RegName + ";"#13; // + chr(13);
OleCheck(MyTxtStream.Write(@s[1], length(s), @n));
MyTxtStream := nil;

for i:=0 to High(Plugins) do begin
SaveFunc := GetProcAddress(Plugins[i].Address, "Save");
if Assigned(SaveFunc) then SaveFunc(MyStorage);
end;
// MyStorage1:= nil;
MyStorage := nil;
end;

---

Страницы: 1 вся ветка

Текущий архив: 2003.06.30;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.02 c