Home / Coding / Delphi / internet sehat

Mengirim Pesan Bot Telegram Dengan Delphi RAD STUDIO

Post a Comment

Assalamu'alaikum semua semoga kita semua dilimpahkan Kesehatan Aaaammmiiiiin...

Kali ini saya akan berbagi cari mengirim pesan Bot Telegram menggunakan delphi. Cara ini saya pelajari untuk membuat log transaksi dari aplikasi POS yang sedang saya buat jadi didalam aplikasi POS tersebut Log transaksi dari kasir akan dikirm ke Group Telegram yang sudah dibuat, jadi owner bisa memantau transaksi penjualannya dari Telegram.

Tetapi pada postingan kali ini saya hanya memperkenalkan cara mengirim pesannya saja nanti teman-teman bisa mengembangkan sendiri hasilnya. Oke Mulai ^_^

Sebelum mulai silahkan download Source dibawah ini terlebih dahulu.

Download Source Tambahan Telegram Delphi

Setelah download silahkan tambahkan file source/src ke project kalian agar koding tambahan di kenali oleh si delphi nya ya...


Siapkan 3 EditBox 2 Button dan 1 Memo untuk susunan/tampilan sesuaikan selera masing-masing saja ya...ini cuma contoh aja.
  • Edit1 : untuk ChatID Telegram
  • Edit2 : untuk Token Bot Telegram
  • Edit3 : Isi Pesan yang akan kita kirim 
  • Memo : untuk melihat log telegram

Coding

Sebelumnya silahkan tambahkan beberapa komponen di Uses
uTelegramAPI, uTelegramAPI.Interfaces, uConsts, uClassMessageDTO

dan buat declarations di private declarations

private
{ Private declarations }
    FTelegram: iTelegramAPI;
    FAsyncHttp: TThread;
    procedure OnAPIError(AExcept: Exception); 

Ok sekarang buat ketikan script ini pada procedure OnAPIError(AExcept: Exception); 

procedure TForm1.OnAPIError(AExcept: Exception);
begin
    TThread.Synchronize(TThread.Current, procedure
        begin
            MessageDlg(AExcept.Message, mtWarning, [mbOK], 0);
      end);
end;

Script Form Create

edit2.Text := 'ISIKAN TOKEN BOT ANDA';
edit1.Text := 'CHAT ID TELEGRAM';
FTelegram := TTelegramAPI.New();
FTelegram
    .OnError(OnAPIError)
    .SetUserID(edit1.Text)
    .SetBotToken(edit2.Text);
    memo1.Clear; 

Tambahkan script untuk tombol simpan chat id dan token bot

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  FTelegram.SetBotToken(edit2.Text);
  FTelegram.SetUserID(edit1.Text);
end;

Kemudian tambahkan script untuk tombol kirim

FTelegram.SendMsg(edit3.Text);
Memo1.Text := FTelegram.GetResult();

Sekang coba jalankan project kalian (harus ada koneksi internet yaps)

Silahkan download source code di link bawah ini agar lebih mantap lagi.

Download Project Mengirim Pesan Bot Telegram dengan Delphi

Semoga bermanfaat ^_^

Post a Comment for "Mengirim Pesan Bot Telegram Dengan Delphi RAD STUDIO"