Kamis, 11 Juni 2015

Code Delphi Cara Menyimpan Halaman Web Blog Buat di Baca Offline

Source Code Delphi 7 Rich Edit Text Download HTML
 Berikut adalah Source Code Delphi Cara Menyimpan Halaman Web Blog Buat di Baca Secara Offline dan seblumnya juga sudah di share seputar Download IDM CC 7 Add Ons For Mozilla Firefox 30 31 32 33 34 35 36 37 38 Terbaru 2015 dan berikut adalah ulasannya, mungkin anda tidak kepikiran sering membaca membaca postingan di suatu blog atau di suatu website yang kebetulan ingin anda download atau ada mau simpan di komputer anda, nah nantinya halaman website tersebut bisa anda baca secara offline full dengan gambarnya, berikut mimin share code atau listing codingnnya buat ada pelajari dan bisa anda gunakan dan tentunya nantinya softwarenya jadi software hasil karya sendiri.

Pada listing disini mimin kasih 3 coding utama sekaligus buat anda pelajarri, pertama yaitu download halaman html suatu website, 2 preview CRLF dari halaman website tersebut, 3 highligh richedit, 4 voice suara dari tombol ketika tombol di tekan dan berikut listing codingnnya buat anda pelajari.

Daftar Komponen: Button 3 ,  ProgressBar 1, timer 1, RichEdit 1
Uses : Urlmon, Comobj


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Urlmon, ExtCtrls, ComCtrls,VrControls, VrGradient, Comobj;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ProgressBar1: TProgressBar;
    Timer1: TTimer;
    Button3: TButton;
    RichEdit1: TRichEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    procedure Button3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
 { Add a button and memo }
implementation

{$R *.dfm}

procedure SearchAndReplace( RichEdit: TRichEdit; InSearch,InReplace: String );
var
X,ToEnd: Integer;
begin
X := 0;
ToEnd := Length( RichEdit.Text );
X := RichEdit.FindText( inSearch,X,ToEnd,[] );

While X <> -1 Do Begin
RichEdit.SelStart := X;
RichEdit.SelLength := Length( inSearch );
RichEdit.SelText := inReplace;
X := RichEdit.FindText( inSearch,X + Length( inReplace ),ToEnd,[] );
End;
end;

procedure HTMLSyntax(RichEdit: TRichEdit; TextCol, TagCol, DopCol: TColor);
var
  i, iDop: Integer;
  s: string;
  Col: TColor;
  isTag, isDop: Boolean;
begin
  iDop := 0;
  isDop := False;
  isTag := False;
  Col := TextCol;
  RichEdit.SetFocus;
  for i := 0 to Length(RichEdit.Text) do
  begin
    RichEdit.SelStart := i;
    RichEdit.SelLength := 1;
    s := RichEdit.SelText;
    if (s = '<') or (s = '{') then isTag := True;
    if isTag then
      if (s = '"') then
        if not isDop then
        begin
          iDop  := 1;
          isDop := True;
        end
        else
          isDop := False;
    if isTag then
      if isDop then
      begin
        if iDop <> 1 then Col := DopCol;
      end
      else
        Col := TagCol
    else
      Col := TextCol;
    RichEdit.SelAttributes.Color := Col;
    iDop := 0;
    if (s = '>') or (s = '}') then isTag := False;
  end;
 
  RichEdit.SelLength := 0;
end;

 function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  ca : iinterface;
  stat : iBindStatusCallBack;
  tag : _tagBindInfo;
  exGuid : tguid;
 voice: OLEVariant;
begin
   voice := CreateOLEObject('SAPI.SpVoice');
  voice.Speak('Download File', 0);
timer1.Enabled:=true;
  exGuid.D1 := word(',');
  exGuid.D2 := word('0');
  exGuid.D3 := word('.');
  with tag do
  begin
    iid := exGuid;
    cbSize := sizeOf('http://www.indoblog.me/2015/06/download-idm-cc-7-add-ons-for-mozilla.html'); //Ganti link tersebut dengan link website yang ingin anda download atau ubah dengan edit text
    securityAttributes.nLength := length('0.0.0.0');
    securityAttributes.bInheritHandle := True;
  end;
  try
     urlmon.URLDownloadToFile(ca, 'http://www.indoblog.me/2015/06/download-idm-cc-7-add-ons-for-mozilla.html', 'data.html', 1, stat);
//Ganti link tersebut dengan link website yang ingin anda download atau ubah dengan edit text
  except
    ShowMessage('Maaf File Tidak Bisa Di Download ...!');
  end;
  RichEdit1.Lines.LoadFromFile('data.html');
  sleep (10);
   RichEdit1.Lines.BeginUpdate;
  HTMLSyntax(RichEdit1, clBlue, clRed, clGreen);
SearchAndReplace(Richedit1, 'Hapus Kata Yang Muncul di Web', '');
SearchAndReplace(Richedit1, 'Hapus Kata Yang Muncul di Web', '');
RichEdit1.Lines.EndUpdate;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 voice: OLEVariant;
begin
 voice := CreateOLEObject('SAPI.SpVoice');
  voice.Speak('Delete File', 0);
RichEdit1.lines.Clear;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if progressbar1.Position=100 then
  begin
    timer1.Enabled:=false;
  end
else
  begin
    progressbar1.Position:=progressbar1.Position+5;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled:=false;
end;

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
resize:= false;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
 voice: OLEVariant;
begin
 voice := CreateOLEObject('SAPI.SpVoice');
  voice.Speak('Program Close', 0);
form1.Close;
end;

end.

Hanya Itu Saja informasi seputar Source Cara Code Delphi 7 Cara Menyimpan Halaman Web Blog Buat di Baca Offline Terbaru 2015 semoga bermanfaat dan terima kasih.

Postingan Yang Akan Datang;  Mozilla Firefox 38.05 Offline Installer Full Version