Добавьте пожалуйста возможность создавать "архивы" b64 по alt-f5.

Добрый день, Александр!

У меня вопрос по плагину WhoOpenDoc для Total Comm. Я его скачал и добавил в ТС, но что дальше? Нигде не вижу возможности им воспользоватся.

Ячуш Дорожинский

DesweR: ответил по e-mail

Здравствуйте, ситуация такая, нужна ваша помощь. Я пытаюсь использовать ваш плагин MhtUnPack.wcx (отличная вещь!) для своей программы (на Delphi7), программа экспортирует документы в MS Word и OpenOffice, но OpenOffice не поддерживает формат .mht, поэтому решил выкрутиться через ваш плагин. Проблема в том, что вываливается ошибка с AV при вызове функции ProcessFile с параметром =2 (извлеч), если её вызывать с параметром =0 (просмотр) - то всё нормально, даже заголовки читаются. Прошу у вас помощи, для меня это очень важно (это дипломный проект), на всякий случай привожу листинг программы (надеюсь Delphi вы понимаете):

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
THeadData = record
ArcName: array [0..259] of Char;
FileName: array [0..259] of Char;
Flags,
PackSize,
UnpSize,
HostOS,
FileCRC,
FileTime,
UnpVer,
Method,
FileAttr: Longint;
CmtBuf: PChar;
CmtBufSize: Longint;
CmtSize: Longint;
CmtState: Longint;
end;

type
TOpenData = record
ArcName: PChar;
OpenMode: Longint;
OpenResult: Longint;
CmtBuf: PChar;
CmtBufSize: Longint;
CmtSize: Longint;
CmtState: Longint;
end;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
OpenData: TOpenData;
HeadData: THeadData;
DllProc1: function(var OpData: TOpenData): THandle; stdcall;
DllProc2: function(Handle: THandle; var HeadData: THeadData): Longint; stdcall;
DllProc3: function(Handle: THandle; Oper: Longint; DestPath, DestName: PChar): Longint; stdcall;
HLib, HFile: THandle;
begin
ZeroMemory(@OpenData, SizeOf(TOpenData));
ZeroMemory(@HeadData, SizeOf(THeadData));

HLib:=LoadLibrary(PChar(''MhtUnPack.wcx''));
if HLib=0 then
Exit;

try
@DllProc1:=nil;
@DllProc1:=GetProcAddress(HLib,''OpenArchive'');
if not Assigned(DllProc1) then
Exit;

@DllProc2:=nil;
@DllProc2:=GetProcAddress(HLib,''ReadHeader'');
if not Assigned(DllProc2) then
Exit;

@DllProc3:=nil;
@DllProc3:=GetProcAddress(HLib,''ProcessFile'');
if not Assigned(DllProc3) then
Exit;

OpenData.ArcName:=''C:123.mht'';
OpenData.OpenMode:=0;
HFile:=DllProc1(OpenData);

while DllProc2(HFile, HeadData)=0 do
begin
ShowMessage(HeadData.FileName);
DllProc3(HFile, 2 {если подставить 0 - всё будет работать} , PChar(''C:Temp''+HeadData.FileName), nil);
end;

finally
FreeLibrary(HLib);
end;
end;

end.

С глубочайшем уважением.

Спасибо. :)

Привет )

Вижу, все движется вперед, число разработок заметно выросло :)

Так держать! Удачи )

I''d like to report a bug of MHTUnpack. MHTUnpack don''t parse well.

For example:
Content-Disposition: attachment; filename=http://nov.2chan.net/b/src/1215279355842.jpg
MHTUnpack outputs "http" as filename, but it should be "1215279355842.jpg"

Привет. Спасибо за плагин, он один помог корректно извлечь ресурсы из имеющегося у меня mht-файла!

После распаковки mht файла на компьютере где нет инета я не могу посмотреть страничку, т.к. все ссылки ведут в интернет. Можно ли выпустить версию которая бы правила ссылки на распакованные ресурсы с интернетовских на локальные?