Доброго времени суток, форумчане.
Появился вопрос про массовую печать всех html файлов в данной папке.
Полазил по инету. Вот что получилось:
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, FileCtrl, OleCtrls, SHDocVw, ShellAPI, Buttons;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
WebBrowser1: TWebBrowser;
procedure Button1Click(Sender: TObject);
procedure WebBrowser1NavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i: integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var sr:TSearchRec;
Result:word;
begin
i:=0;
ChDir(Edit1.Text);
Result := FindFirst (Edit2.Text,faAnyFile,sr);
Memo1.Clear;
While result=0 do
Begin
Result:=FindNext (sr);
Memo1.Lines.Add(sr.name) ;
WebBrowser1.Navigate(Edit1.Text+'\'+sr.Name);
While WebBrowser1.Busy do ;
i:=i+1;
End;
ShowMessage('Ïîèñê çàêîí÷åí íàéäåíî '+IntToStr(i)+' ýëåìåíòîâ');
end;
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
Var
vaIn, vaOut : OleVariant;
begin
WebBrowser1.ControlInterface.ExecWB (OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
end;
end.
Но печатает всего 3-4 файла. Подскажите в чем ошибка.