Setup Router Tp-Link

Tampilan oke sih.. kita coba lihat kinerjanya.

Advertisements

Koneksi database Sqlite dengan Zeos di Lazarus

Membuat koneksi database sqlite di lazarus, langsung saja coba perhatikan propertis dari TZConnection, isi dari ke 3 propertise di bawah ini. Jangan lupa, kamu harus punya file librarynya sqlite3.dll

  1. Database
  2. LibraryLocation
  3. Protocol

PropertisCon

adf.ly adalah

Kita sering download file program, freeware, lagu dan muncul web adfly .

Terlihat bagi yang belum terbiasa merasa kesulitan, karena kita ditampilkan dengan iklan yang muncul. Tapi bagi yang sudah terbiasa itu tidak masalah.

Terus apa sih adfly itu, dia adalah jasa periklanan. Setiap pemilik usaha yang menginginkan diiklankan usahanya, adfly adalah tempatnya. Adfly akan menampilkan usaha setiap link yang digunakan di click.

Bagi pemilik web atau blog akan mendapat komisi dolar dari setiap click link yang mereka pasang.

Bagi teman-teman yang berkunjung di blog saya, mulai saat ini saya gabung dengan adfly. Semoga tidak menggangu. Ini bentuk usaha saya untuk mendapat uang dari internet. Dan bagi teman-teman ingin gabung silahkan ikut mendaftar disini adfly.

Membuat Backup dan Restore Mysql dengan Lazarus

Pagi – pagi buat catatan di blog ” Membuat Backup dan Restore database Mysql di lazarus “ Cara ini berlaku juga di delphi. LAngsung saja Buatlah 2 button, Button Backup dan Restore. Pada proses ini kita menggunakan mysqldump yang sudah disediakan oleh mysql. Lokasi mysqldump tergantung dari instalasi mysqlnya. Jika menggunakan Xampp, cari lokasi terlebihdahulu.

Pada Button Backup isi event click berikut ;

procedure TMain.BackupClick(Sender: TObject);
const
READ_BYTES = 2048;

var
command: TProcess;
s: string;
output: TStringList;
BytesRead, n: LongInt;
m: TMemoryStream;

begin
if not (ZConnection1.User = ‘root’) then begin
ShowMessage(‘Only root could access.’);
Exit
end;
SaveDialog1.Free;
SaveDialog1 := TSaveDialog.Create(Self);
SaveDialog1.InitialDir:= GetUserDir + ‘My Documents\’;
SaveDialog1.Filter:=’Backup Files|*.bfl’;
if SaveDialog1.Execute then begin
s := SaveDialog1.FileName;
if not (copy(s,Length(s)-3,Length(s)-1) = ‘.bfl’) then
s := s + ‘.bfl’;
command := TProcess.Create(Nil);
output := TStringList.Create;
M := TMemoryStream.Create;
BytesRead := 0;
command.CommandLine := ‘c:\mysqldump -u root -p’+ZConnection1.Password+’ -h ‘+ZConnection1.HostName+’ database’;
command.Options := command.Options + [poUsePipes];
command.Execute;
while command.Running do begin
// ensure the space
M.SetSize(BytesRead + READ_BYTES);
// we try to read
n := command.Output.Read((M.Memory + BytesRead)^, READ_BYTES);
if n > 0 then
Inc(BytesRead, n)
else
// whitout data, wait 100 ms
Sleep(100);
end;
// we read the last part
repeat
// ensure the space
M.SetSize(BytesRead + READ_BYTES);
// we try to read
n := command.Output.Read((M.Memory + BytesRead)^, READ_BYTES);
if n > 0 then
Inc(BytesRead, n);
until n <= 0;
M.SetSize(BytesRead);
output.LoadFromStream(M);
output.SaveToFile(s);
output.Free;
command.Free;
M.Free;
ShowMessage(‘Backup ready.’)
end else
ShowMessage(‘Backup canceled.’);
end;

 

Dan untuk button Restore isi dengan prosedure berikut

procedure TFMain.restoreClick(Sender: TObject);
var
s: string;
tfFile: TextFile;
begin
if not (ZConnection1.User = ‘root’) then begin
ShowMessage(‘Only root could access.’);
Exit
end;
OpenDialog1.Free;
OpenDialog1 := tOpenDialog.Create(Self);
OpenDialog1.InitialDir:=GetUserDir+’My Documents\’;
OpenDialog1.Filter:=’Backup Files|*.bfl’;
if OpenDialog1.Execute then begin
AssignFile(tfFile, OpenDialog1.FileName);
if not FileExists(OpenDialog1.FileName) then
exit;
reset(tfFile);
ZQuery1.SQL.Clear;
readln(tfFile,s);
While not eof(tfFile) do begin
Readln(tfFile,s);
if length(s) > 0 then begin
s := StringReplace(s, #10, ”, [rfReplaceAll]);
s := StringReplace(s, #13, ”, [rfReplaceAll]);
s := StringReplace(s, #9, ‘ ‘, [rfReplaceAll]);
if not ((s[1]+s[2]) = ‘–‘) then begin
ZQuery1.SQL.Add(s);
if s[length(s)] = ‘;’ then begin
ZQuery1.ExecSQL;
ZQuery1.SQL.Clear
end
end
end
end;
CloseFile(tfFile);
ShowMessage(‘Restauration done.’);
end else
ShowMessage(‘Restauration canceled.’);
end;

 

Semoga bermanfaat

Setting email (SMTP) di joomla

Bismillah… Pagi-pagi tulis dikit catatan, siapa tau nanti ada yang membutuhkan. Yaitu bagaimana cara setting email yang ada di web. Kegunaannya, untuk mengirim email aktifasi ke calon user, seperti contohnya mbak/mas daftar facebook, biar facebook aktif maka kita diminta buka email dan klik link aktifasi yang mereka berikan.

Itu salahsatu manfaatnya, untuk setingannya saya sajikan dalam bentuk gambar di bawah, semoga bermanfaat.

 

smtpmailjoomla

4 Item yang harus di ingat dalam seting dasar mikrotik

Dasar dari seting mikrotik :

1. Mikrotik mampu berhubungan dengan ISP

2. Mikrotik mendapat akses internet

3. Client mampu berhubungan dengan mikrotik

4. Client mendapat akses internet dari mikrotik

Untuk mendapatkan keempat dasar diatas, kita harus perhatikan 4 item berikut.

1. Interface, berikan identitas setiap ethernet.

2. Address, berikan IP disetiap interface yang sudah di rubah  (jangan lupa /24)

3. Router, setting gateway dari ip isp

4. DNS, isikan dns dari isp atau ip dari mikrotik
Dengan 4 dasar ini mikrotik sudah dapet berfungsi sebagai router pemberi akses internet. Setelah ini silahkan seting sesuai kebutuhan.

Semoga bermanfaat

Download Kode Warna Singkat

Berikut saya berikan link kode warna singkat untuk teman-teman yang suka desain, baik web maupun desain gambar. Klik Link

Anda tinggal klik kanan pada warna yang anda pilih, selanjutnya tinggal paste

Flatcoolor2

Kelebihannya juga kita bisa memilih jenis warna nya,

Flatcoolor

semoga bermanfaat