JohnnySEunit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ActiveX, StdCtrls, ZLENGINELib_TLB;
type
TForm2 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
izl : izlibEngine;
iw : iUnknown; ff : Text;
const zG : tGUID = '{C5276425-F299-11D0-8149-004095E1F439}';
zlibG : tGuid = '{C5276436-F299-11D0-8149-004095E1F439}';
izg : tGuid = '{C5276445-F299-11D0-8149-004095E1F439}';
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
var
FileStreamIn: TFileStream;
FileStreamOut: TFileStream;
StreamIn: IStream;
StreamOut: IStream;
FileNameIn: String;
FileNameOut: String;
begin // читаем файл
// НАЗНАЧАЕМ ПУТЬ К ФАЙЛУ
FileNameIn:= 'C:\sea\in.bin';
FileNameOut:= 'C:\sea\Out.txt';
FileStreamIn := TFileStream.Create(FileNameIn, fmCreate);
FileStreamOut := TFileStream.Create(FileNameOut, fmCreate);
StreamIn := TStreamAdapter.Create(FileStreamIn, soReference);
StreamOut := TStreamAdapter.Create(FileStreamOut, soReference);
izl.pkdecompress(StreamIn as IStream,StreamOut as IStream);
... здесь вылетает ошибка.
/////////////////////////////////////////////
в ZLENGINELib_TLB
IzlibEngine = interface(IUnknown)
['{C5276445-F299-11D0-8149-004095E1F439}']
procedure pkDecompress(const lpstrmFrom, lpstrmTo: IStream); safecall;
end;


тыю хотябы использовал тэг SRC и отформатировал бы.
сам вчитывайся в эту бодягу.