| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Использование интерфейсов в KOL

Алексей Ефременко ©   (2005-10-12 11:49:00) 

Необходимо работать со структурированным файлом через интерфейсы IStorage и IStream. Однако, подключение к проекту модуля activex.pas наверняка потянет в KOL-проект "старые добрые" class-ы и весь тот балласт, от которого стремишся избавиться, переходя на KOL. Я верно рассуждаю? И есть ли выход из этого положения? Есть ли лазейка для использования interface в KOL?

---

Thaddy   (2005-10-13 14:28:00) [1]

http://members.chello.nl/t.koning8/kolcompdoc.pas

This contains a complete and full featured set of objects to work with storages and streams for KOL.

Please note that the included filesystem is broken, but the IStorage and Istream objects work, as do the utility routines (many ;) )

---

Thaddy   (2005-10-13 01:59:00) [2]


function OleStreamSeek(Strm: PStream; MoveTo: Integer; MoveMethod: TMoveMethod ): DWORD;
var
 Pos: Largeint;
begin
 ISTREAM(Strm.methods.fcustom).Seek(Moveto, integer(MoveMethod), Pos);
 Result := Longint(Pos);
end;

function OleStreamRead(Strm: PStream; var Buffer; Count: DWORD ): DWORD;
begin
 ISTREAM(Strm.methods.fCustom).Read(@Buffer, Count, @Result)
end;

function OleStreamWrite( Strm: PStream; var Buffer; Count: DWORD ): DWORD;
begin
 result:=ISTREAM(Strm.methods.fcustom).write(@Buffer, Count, @Result)
end;

function NewOleStream(const OleStream:iStream):pStream;
var
  Methods:TStreamMethods;
begin
Result:=_NewStream(Methods);
Result.Methods.fSeek:=OleStreamSeek;
Result.Methods.fRead:=OleStreamRead;
Result.Methods.fWrite:=OleStreamWrite;
Result.Methods.fCustom:=Pointer(OleStream);
end;

end.
constructor TOleStream.Create(const Stream: IStream);
begin
 FStream := Stream;
end;

function TOleStream.Read(var Buffer; Count: Longint): Longint;
begin
 OleCheck(FStream.Read(@Buffer, Count, @Result));
end;

function TOleStream.Seek(Offset: Longint; Origin: Word): Longint;
var
 Pos: Largeint;
begin
 OleCheck(FStream.Seek(Offset, Origin, Pos));
 Result := Longint(Pos);
end;

function TOleStream.Write(const Buffer; Count: Longint): Longint;
begin
 OleCheck(FStream.Write(@Buffer, Count, @Result));
end;

function TOleStream.GetIStream: IStream;
begin
 Result := FStream;
end;


---

Thaddy   (2005-10-13 00:04:00) [3]

I have KOL pStream wrappers for IStream and IStorage if you want. Just mail me.

---

ECM   (2005-10-12 11:57:00) [4]

Посмотрите в сторону http://bonanzas.rinet.ru/ActiveKOL.zip
может облегчить задачу

---

shalex   (2005-10-12 11:53:00) [5]

activex.pas не относится к VCL, поэтому можно подключать.

---

Наверх