Risman Arisandy: Delphi

Tampilkan postingan dengan label Delphi. Tampilkan semua postingan

Firebase Push Notification Menggunakan Php dan Delphi

Kali ini kita belajar menggunakan firebase untuk push notification ke Perangkat, pada umumnya berbasis android. caranya kita push data json ke alamat fcm.googleapis.com/fcm/send dengan mengirimkan auth dibagian headernya. seperti contoh dibawah: 1. Menggunakan Delphi, jangan lupa menggunakan uses JSON, system.net.httpclient

Procedure ...
var
        client : THTTPClient;
        v_json : TJSONObject;
        v_jsondata, v_jsondata2 : TJSONObject;
        v_registerids : TJSONArray;
        v_data : TStringStream;
        v_response : TStringStream;
        //-------
        token_celular : string;
        codigo_projeto : string;
        api : string;
        url_google : string;
begin
        try
                //Firebase
                url_google := 'https://fcm.googleapis.com/fcm/send'; 
                token_celular := ''; // Token Divice
                api := '';  // API Key Headers...

v_registerids := TJSONArray.Create;
                v_registerids.Add(token_celular);

v_jsondata := TJSONObject.Create;
                v_jsondata.AddPair('id', 'isi sendiri');
                v_jsondata.AddPair('message', 'isi sendiri');
                v_jsondata.AddPair('key1', 'isi sendiri');
                v_jsondata.AddPair('key2', 'isi sendiri');
                v_jsondata.AddPair('key3', 'isi sendiri');
                v_jsondata.AddPair('key4', 'isi sendiri');

v_jsondata2 := TJSONObject.Create;
                v_jsondata2.AddPair('title', 'Title of your notification');
                v_jsondata2.AddPair('body', 'content of your notification');

v_json := TJSONObject.Create;
                v_json.AddPair('registration_ids', v_registerids);
                v_json.AddPair('notification', v_jsondata2);
                v_json.AddPair('data', v_jsondata);

client := THTTPClient.Create;
                client.ContentType := 'application/json';
                client.CustomHeaders['Authorization'] := 'key=' + api;

memo1.Lines.Add(v_json.ToString);

v_data := TStringStream.Create(v_json.ToString);
                V_data.Position := 0;

v_response := TStringStream.Create;

client.Post(url_google, v_data, v_response);
                v_response.Position := 0;

memo1.Lines.Add(v_response.DataString);
        except on e:exception do
                showmessage('Erro: ' + e.Message);
        end;
end;

2. Menggunakan PHP

<?php

$curl = curl_init();
$authKey = "key=CONTOH";
$registration_ids = '["CONTOH"]';

curl_setopt_array($curl, array(
  CURLOPT_URL => "https://fcm.googleapis.com/fcm/send",
  CURLOPT_RETURNTRANSFER => true,
  CURLOPT_ENCODING => "",
  CURLOPT_MAXREDIRS => 10,
  CURLOPT_TIMEOUT => 0,
  CURLOPT_FOLLOWLOCATION => true,
  CURLOPT_HTTP_VERSION => CURL_HTTP_VERSION_1_1,
  CURLOPT_CUSTOMREQUEST => "POST",
  CURLOPT_POSTFIELDS =>'{
                    "registration_ids": '. $registration_ids .',
                    "notification": {
                        "title":"Title of your notification",
                        "body":"content of your notification"
                        },
                    "data": {
                            "key1" : "value1",
                            "key2" : "Cinta",
                            "key3" : 23.56565,
                            "key4" : true
                        }
                    }',
  CURLOPT_HTTPHEADER => array(
    "Content-Type: application/json",
    "Authorization:  ". $authKey 
  ),
));

$response = curl_exec($curl);

curl_close($curl);
echo $response;

Images

Tutorial membuat Auth API menggunakan php parameter Header

Kali ini kita akan belajar membuat Auth untuk verifikasi Riquest api ke server kita. Jika teman-teman membaca artikel ini saya anggap pemahaman API teman-teman bukan basic lagi, kapan sih kita membutuhkan Auth dan apa manfaat Auth untuk API server kita. Saya tidak mampu menjelaskan panjang lebar tentang Auth itu sendiri tapi saya lebih ke teknis penggunaan Auth, disini kita akan membuat Auth yang dimana melalui parameter Header. contoh menggambil untuk mengambil parameter yang dikirimkan melalui Header menggunakan PHP: dari contoh diatas Headers parameter "Auth" maka kita tampilkan, teman-teman tinggal membuat logika untuk penanganan request tadi. teman-teman bisa membuat parameter lain yg dikirim melalui header. tadi adalah contoh untuk menerima parameter melalui Headers. sekarang kita coba untuk mengirim data ke API tadi:

Images

Tutorial Setting SDK Manager untuk built apk Android di aplikasi Delphi

hai langsung saja ya tanpa basa basi.
disi saya menggunakan aplikasi Delphi 10.2 (Tokyo) saat tutorial ini dibuat. Pada aplikasi Delphi belum ada pengaturan yg diubah dan belum ada komponen tambahan.

untuk membuat aplikasi andorid pertama-tama kita harus download dulu API andorid di aplikasi Andorid SDK Manager, disini saya hanya download API terakhir Android 9

selanjutnya buka aplikasi Delphi nya, nanti dibagian SDK Manager belum ke setting menggunakan lib API yg sudah di download tadi. sebelum ke set akan muncul peringatan seperti gambar dibawah

Selanjutnya tinggal kita ganti saja bagian yg ada icon tanda peringatanya

Setelah menyesuaikan folder API SDK yg kita download tadi. jadi seperti ini.

Nah Sekarang sudah bisa buat aplikasi Android delphi. Mudah bukan. ^_^

Images

Info Komponen dan ebook untuk belajar Delphi android

1. RealThinClient SDK
Delphi components for building reliable cross-platform HTTP(S)
Clients, Servers, Routers, Proxies, Load Balancers & more …

2. Tutorial Delphi Firemonkey

Images

Post gambar ke field blob database mengunakan Delphi & Php

akhirnya selama dua minggu surfing di google akhirnya ada titik terang tentang sedikit permasalahan coding yang saya alami, dimana beberapa kasus untuk menyimpan gambar di database hosting via jalur internet lumayan sulit, beberapa teknik sudah saya terapkan, menggunakan convert stream ke binary, convert ke base64 dll sudah saya terapkan dan itu sangat sulit.

dan taadaa akhirnya saya menemukan teknik ini, cekkk itt dottt broww..

disini kita akan membuat aplikasi dekstop menggunakan delphi, yang akan menyimpan gambar di field blob database di hosting. untuk itu kita memerlukan sebuah service untuk menerima data, jadi kita gunakan php, selengkapnya ikuti tahapan berikut.

1. siapkan table databasenya dulu.

CREATE TABLE IF NOT EXISTS `file_attachment` (

`id` bigint(20) NOT NULL,

`file_content` mediumblob NOT NULL,

`file_name` varchar(255) NOT NULL,

`file_type` varchar(255) NOT NULL,

`file_size` bigint(20) NOT NULL DEFAULT '0'

) ENGINE=MyISAM AUTO_INCREMENT=5 DEFAULT CHARSET=utf8;

2. buat service php untuk menerima post dari aplikasi dekstop. simpan dgn nama insert_blob.php

<?php

// CONECT DATABASE

@mysql_connect("localhost", "root", "") OR die ("NOT CONNECT DATABASE");

@mysql_select_db("gambar") OR die ("CONNECTED, BUT NO DATABASE");

$file_name = $_FILES['file']['name'];

$tmp_name = $_FILES['file']['tmp_name'];

$file_size = $_FILES['file']['size'];

$file_type = $_FILES['file']['type'];

$fp = fopen($tmp_name, 'r');

$file_content = fread($fp, $file_size) or die("Error: cannot read file");

$file_content = mysql_real_escape_string($file_content) or die("Error: cannot read file");

fclose($fp);

// INSERT

$qu = "INSERT INTO `file_attachment`

(`file_content`,`file_name`,`file_type`,`file_size`)

VALUES

('".$file_content."','".$file_name."','".$file_type."','".$file_size."')";

$re = mysql_query($qu) or die ("Sorry Cant insert db!");

echo $file_name." inserted succesfully to database";

?>

3. ini coding php untuk menampil dan mengambil gambar dari database, simpan dgn nama view_blob.php cara menggunakan nya jadi jika ingin melihat gambar di id 1 maka http://localhost/project/view_blob.php?id=1

<?php

// CONECT DATABASE

@mysql_connect("localhost", "root", "") OR die ("NOT CONNECT DATABASE");

@mysql_select_db("gambar") OR die ("CONNECTED, BUT NO DATABASE");

function jin_gfile($txt) {

$txt = preg_replace("/[^a-zA-Z0-9s.]/", "_", trim($txt));

return $txt;

}

$id = $_REQUEST['id'];

$query = "SELECT * FROM `file_attachment` WHERE `id`='".$id."' LIMIT 1";

$qu = mysql_query($query);

$num = mysql_numrows($qu);

if($num > 0) {

$result=mysql_fetch_object($qu);

header("Content-Disposition: attachment; filename=".jin_gfile($result->file_name.""));

header("Content-length: ".$result->file_size."");

header("Content-type: ".$result->file_type."");

echo $result->file_content;

} else {

echo "File tidak valid!";

}

?>

4. coding php untuk menampilkan gambar. ini khusus untuk aplikasi di php

<?php

echo '<img src="http://localhost/gambar/view_blob.php?id='. $_GET['gambar'] .'" alt="Gambar Alumni 1996">';

?>

5. selanjutnya coding untuk di delphi, untuk menyimpan gambar jgn lupa tambahkan uses IdMultipartFormData

procedure TForm1.Button1Click(Sender: TObject);

var

PostData: TIdMultipartFormDataStream;

id : TidHttp;

begin

PostData := TIdMultipartFormDataStream.Create;

id := TIdHttp.Create();

try

PostData.AddFile('file', 'D:\pictures\images.jpg');

id.Post('http://localhost/gambar/insert_blob.php', PostData);

showmessage('Berhasil terupload');

finally

PostData.Free;

id.Free;

end;

6. untuk mengambil gambar di delphi

procedure TForm1.Button2Click(Sender: TObject);

var

id : TidHttp;

gambar : TMemoryStream;

begin

id := TIdHttp.Create();

gambar := TMemoryStream.Create;

try

Id.Get('http://localhost/gambar/view_blob.php?id=2',gambar);

gambar.Position := 0;

Image1.Bitmap.LoadFromStream(gambar);

finally

id.Free;

gambar.Free;

end;

7. bonus jadi jika ingin post gambar berserta field yang lain misalnya nama, keterangan dll, jangan lupa untuk menyesuaikan struktur databasenya.

procedure TForm1.Button1Click(Sender: TObject);

var

PostData: TIdMultipartFormDataStream;

id : TidHttp;

begin

PostData := TIdMultipartFormDataStream.Create;

id := TIdHttp.Create();

try

PostData.AddFile('file', 'D:\pictures\images.jpg');

PostData.AddFormField('nama', nama.text);

PostData.AddFormField('keterangan', keterangan.text);

id.Post('http://localhost/gambar/insert_blob.php', PostData);

showmessage('Berhasil terupload');

finally

PostData.Free;

id.Free;

end;

end;

Sekian penjelasan singkat tutorial Post gambar ke field blob database di hosting internet menggunakan Delphi dan PHP.

Images

Install Komponen AlphaSkin di Delphi 7

Kali ini saya ingin berbagi bagaimana cara menambahkan komponen alpha skin di delphi 7.

1. Copy Folder Komponen Alpha Skin di direktori Programfile/Borland/Delphi7/Source/"FolderAlphaskin"

2. Tambahkan Lokasi komponen alphaskin library pada delphi 7, ikuti petunjuk seperti digambar

masuk pada menu tool > library > klik tombol yg dilingkari merah.

kemudian ikuti langkah seperti digambar kemudian ok.

3. Open file acntD7_R yg berada di file direktory dicopykan pada langkah pertama, kemudian compile
4. Open file acntD7 klik compile kemudian install.

terakhir cek apakah komponen sudah terdapat di aplikasi Delphi 7

selesai.

akhir kata, maaf jika penjalasan ini sangat singkat, se singkat, singkatnya....
karna memang tutorial ini saya tujukan untuk penulis sendiri, karna sering sekali saya berganti2 alpha skin dengan versi yang berbeda.

Images

Cara mengambil gambar di web menggunakan delphi

tanpa basa basi berikut coding sederhana nya

id := TIdHttp.Create();

gambar := TMemoryStream.Create;

Id.Get('http://localhost/test/gambar.jpg',gambar);

gambar.Position := 0;

Image1.Bitmap.LoadFromStream(gambar);

agar tidak terjadi error dalam aplikasi sebaiknya menggunakan struktur penulisan yg benar dalam menjalankan code. sekian penjelasan yg super singkat dari saya, salam.

Images

Membuat registry icon dan ekstensi file sendiri Menggunakan delphi

asslmualaikum...

kali ini saya akan berbagi pengalaman dan solusi bagi teman2 programmer tentang bagaimana sih cara membuat icon pada file ekstensi buatan sendiri.
mungkin masih bingung ya dengan apa yang saya maksud, gini loh, misalkan ada file .doc atau .docx nah file itu kan milik dari microsoft untuk aplikasi office word.

ketika microsoft office tidak terinstall di Sistem Operasi kita, pasti file2 berekstensi .doc dan .docx file icon nya pasti ngk seperti di gambar di atas, baru ketika setelah install aplikasi microsoft office baru file2nya tampak seperti di atas.

nah kasus kita kali ini adalah kita akan membuat file ekstensi sendiri yang berakhiran di belakang dot(.) milik atau buatan kita sendiri, dan membuatnya tampak menarik dan profesional.

yang kita butuhkan adalah siapkan file icon yg nantinya akan jadi icon dari ekstensi milik aplikasi buatan kita kemudian mendaftarkan icon tersebut ke registry OS windows.

berikut standarnya kunci registrynya untuk mendaftarkan ekstensi dan icon aplikasi kita :

HKEY_CURRENT_USER\Software\Classes\.myfile
HKEY_CURRENT_USER\Software\Classes\MyAppDataFile
HKEY_CURRENT_USER\Software\Classes\MyAppDataFile\DefaultIcon
HKEY_CURRENT_USER\Software\Classes\MyAppDataFile\Shell\open\command

keterangan:
.myfile adalah nama ekstensi file yg kita buat misalnya microsot punya .doc
MyAppDataFile adalah nama registry yg kita daftarkan untuk aplikasi kita.
DefaultIcon adalah icon standar yg kita daftarkan untuk jadi icon ekstensi aplikasi kita
Shell open command ini adalah perintah untuk menjalankan aplikasi kita (untuk yg ini kita bahas diselanjutnya ).

bonus, ini contoh coding untuk delphi yg juga saya gunakan.

with TRegistry.Create do
  try
    RootKey := HKEY_CURRENT_USER;
    if OpenKey('\Software\Classes\.myfile', true) then
      WriteString('', 'MyAppDataFile');
    if OpenKey('\Software\Classes\MyAppDataFile', true) then
      WriteString('', 'My Very Own Text File Type');
    if OpenKey('\Software\Classes\MyAppDataFile\DefaultIcon', true) then
      WriteString('', 'C:\WINDOWS\snotepad.exe');
    if OpenKey('\Software\Classes\MyAppDataFile\shell\open\command', true) then
      WriteString('', 'C:\WINDOWS\snotepad.exe "%1"');
  finally
    Free;
  end;
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0);

Images

Fungtion Part 1 : Format

hai kali ini saya akan berbagi fungsi fungsi format dan mengubah format pada delphi.

1. FormatFloat()
penggunaan formatfloat(format,variable), variable yang di gunakan tipe data real.
formatfloat biasa digunakan untuk membulatkan bilangan decimal.
contoh

var
a : real
begin
a := 10 / 7;
formatfloat(#.###,a);
end;

Images

Mensinkronkan komponen yang tidak terdapat di Alpha Skin

pada properti sSkinManager pilih ThirdParty lalu muncul window seperti gambar di bawah,

pilih komponen pada bagian kanan yang akan di sesuikan pada alpha skin, kemudian klik add select.

pada bagian kiri adalah komponen2 yang sudah menyesuikan di alpha skin, untuk menghapus, pilih komponen pada bagian kiri kemudian delete.

sekian :p

( sorry untuk posting yang sangat singkat, artikel ini saya buat untuk pribadi :3 )

salam.

Images

Delphi : Tutorial menyimpan gambar kedalam database SQL

Berikut ini akan saya share cara menyimpan gambar kedalam database RDBMS yg support SQL, ingat tutorial ini menyimpan langsung kedalam database bukan direktori gambar.

Oke untuk menyikap waktu kita siapkan terlebih dahulu table serta field-fieldnya di database yang kita gunakan untuk menyimpan gambar.

dalam kasus ini saya menggunakan RDBMS MySql, Buat terlebih dahulu databasenya
Database name : db_Gallery
Table name : Gallery
Field name : Nama, tipe : Varchar, Length : 15
Filed name : Foto, tipe : Long Blob, Null ( Bisa juga pakai blob saja, dan ingat pakai null jika dikasus lain foto tidak diwajibkan di isi)

dalam Tutorial ini saya menggunakan Komponen koneksi menggunakan zeos untuk menghubungkan ke database,

1. kita buat button untuk mengload file gambar, kita menggukan 1 button, 1 komponen Image dan 1 opendialog
atur properti opendialog terlebih dahulu jadi defaultext : Jpg, Filter : Jpg|*.jpg ( ini untuk mengfilter file gambar jpg saja yg akan di tampilkan)

2. Code untuk mencari gambar dengan memanfaatkan opendialog

procedure TForm1.Button1Click(Sender: TObject);

begin

if opendialog1.Execute then

begin

image1.Picture.LoadFromFile(opendialog1.FileName);

end;

end;

3. Sebelum lanjut ke coding Simpan, tambahkan terlebih dahulu var stream : tmemorystream; dibawah procedure button simpan, berikut koding untuk menyimpan

procedure TForm1.Button2Click(Sender: TObject);

var stream : tmemorystream;

begin

stream := tmemorystream.Create;

image1.Picture.Graphic.SaveToStream(stream);

stream.Position := 0;

ZQuery1.Append;

ZQuery1.FieldByName('nama').AsString := edit1.text;

tblobfield(ZQuery1.fieldbyname('foto')).LoadFromStream(stream);

stream.Free;

ZQuery1.Post;

end;

4. untuk menampilkan gambar yang disimpan, kita manfaatkan komponen dbgrid, sebelumnya tambahkan uses Jpeg, dan var stream : tmemorystream; dan Jpg: TJpegImage; di procedure dbgrid cell click

procedure TForm1.DBGrid1CellClick(Column: TColumn);

var stream : tmemorystream;

Jpg: TJpegImage;

begin

Jpg := TJpegImage.Create;

stream := tmemorystream.Create;

tblobfield(ZQuery1.FieldByName('foto')).SaveToStream(stream);

stream.position := 0;

Jpg.LoadFromStream(stream);

image1.Picture.Graphic := Jpg;

Edit1.Text := ZQuery1.FieldByName('nama').AsString;

end;

Sekian tutorial dari saya mengenai menyimpan gambar kedalam database SQL
Source code, Exe dan Sql nya bisa download disini : Download

Risman Arisandy

Firebase Push Notification Menggunakan Php dan Delphi

Tutorial membuat Auth API menggunakan php parameter Header

Tutorial Setting SDK Manager untuk built apk Android di aplikasi Delphi

Info Komponen dan ebook untuk belajar Delphi android

Post gambar ke field blob database mengunakan Delphi & Php

Install Komponen AlphaSkin di Delphi 7

Cara mengambil gambar di web menggunakan delphi

Membuat registry icon dan ekstensi file sendiri Menggunakan delphi

Fungtion Part 1 : Format

Mensinkronkan komponen yang tidak terdapat di Alpha Skin

Delphi : Tutorial menyimpan gambar kedalam database SQL

Popular Posts

Arsip Blog