unit1.pas

电子阅读器,适合处学者使用和学习.有意见联系我 .

Unit Unit1;

Interface

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

Type
  TForm1=Class(TForm)
    Button2: TButton;
    Button1: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    E_Writer: TEdit;
    E_Me: TEdit;
    ComboBox1: TComboBox;
    Memo1: TMemo;
    Memo2: TMemo;
    Button3: TButton;
    SaveDialog1: TSaveDialog;
    Procedure Button1Click(Sender: TObject);
  Private
    { Private declarations }
  Public
    { Public declarations }
  End;

Var
  Form1: TForm1;

Implementation
Uses Unit_Main, unit_code;
{$R *.dfm}
Var BtkInfor: InFor;

Procedure TForm1.Button1Click(Sender: TObject);
Var
  iTargetFile: Integer;
  ToFileName: String;

Begin
  If f_main.TreeView.Items.Count=0 Then
  Begin
    MessageBox(Handle, PChar('您尚未修改图书文件,无法生成电子图书!'), PChar('信息'),
      MB_ICONINFORMATION Or MB_OK);
    Exit;
  End;

  SaveDialog1.FileName:=f_main.TreeView.Items.Item[0].Text;

  ToFileName:='';
  If SaveDialog1.Execute Then //保存文件对话框
    ToFileName:=SaveDialog1.FileName;
  If ToFileName='' Then Exit;

  If f_main.TreeView.Selected<>Nil Then
    f_main.MainText.Lines.SaveToFile(Smulu+'Temp\File\'+f_main.TreeView.Selected.Text+'.bop'); //保存文本
  With f_main.VCLZip1 Do
  Begin
    IncludeHiddenFiles:=True;
    IncludeSysFiles:=false;
    IncludeReadOnlyFiles:=True;
    IncludeArchiveFiles:=True;

    StorePaths:=false;

    RootDir:=Smulu+'Temp\File';
    ZipName:=ToFileName;
    FilesList.Add('*.*');

    Recurse:=True;
  End;
  BtkInfor.SWriter:=E_Writer.Text;
  BtkInfor.SMaker:=E_Me.Text;
  BtkInfor.SInfor:=Memo2.Text;
  BtkInfor.SRemark:=Memo1.Text;
  BtkInfor.SLabel:=ComboBox1.Text;
  //BtkInfor.SPass:=;
  BtkInfor.BReadOnly:=True;
  BtkInfor.SFlag:=CFlag;


  If f_main.VCLZip1.Zip>0 Then
  Begin
    If FileExists(ToFileName)=false Then
    Begin
      MessageBox(Handle, PChar(Error_Compress), PChar('信息'),
        MB_ICONINFORMATION Or MB_OK);
      Addlog('Error_Compress');
      Exit;
    End;

    iTargetFile:=FileOpen(ToFileName, fmOpenReadWrite);
    Try
      Try
        FileSeek(iTargetFile, 0, soFromEnd);
        FileWrite(iTargetFile, BtkInfor, SizeOf(BtkInfor));
      Except
        MessageBox(Handle, PChar(Error_Stream), PChar('信息'),
          MB_ICONINFORMATION Or MB_OK);
        Addlog('Error_Stream');
      End
    Finally
      FileClose(iTargetFile)
    End;
    MessageBox(Handle, PChar('电子图书生成成功!'), PChar('成功'),
      MB_ICONINFORMATION Or MB_OK)
  End
  Else
  Begin
    MessageBox(Handle, PChar('电子图书生成失败!'), PChar('失败'),
      MB_ICONINFORMATION Or MB_OK);
    Addlog('Cannot make E-Book');
  End;
End;

End.