[Merhabalar Uni gui mobil camera kullanarak barkod okuma]

Merhabalar
Uni gui mobil camera kullanarak barkod okutup. Barkod degerini ulaşmak için bir kod örnegi var mıdır ?

[unigui panel arka plan rengi degiştirme css ile]

yok mu yardım edecek birisi

[ekli mail gönderim]

bilgi için teşekkürler mehmet bey

[unigui panel arka plan rengi degiştirme css ile]

Merhabalar delphi10.3 versiyonu 

uniGUI Web Application Framework
Copyright FMSoft 2009-2020. All rights reserved.
Version:1.90.0 build 1534

[ekli mail gönderim]

mehmet bey gene göremiyorum acaba mail atabilirmisiniz? ibrahimaydin1715@gmail.com

[unigui panel arka plan rengi degiştirme css ile]

merhabalar öncelikle  panelimizin özellikleri 
-TitleVisible=True;
-TitleAling=taCenter
-Title=AnaSayfa;
-color=clNone;
-borderStyle=ubsNone;
uniEvents =
 

1 2 3 4

function beforeInit(sender, config) {  config.sytle=' background-color: #fe6369;' }

arka plan rengini bir türlü degiştiremedim.Title bölümünün. Yardımcı olur musunuz ?

[ekli mail gönderim]

eki indiremiyorum 

Üzgünüm, bir sorun var

Bu ek mevcut değil. Kaldırılmış olabilir veya onu paylaşan kişinin bu konumla paylaşma izni olmayabilir.

[ekli mail gönderim]

procedure AttachHtmlFile(const AName, AFileName, AContentType, AContentID: string; ATempFile: Boolean = False);
    procedure AttachTempFile(const AName, AFileName, AContentType: string);
    procedure AttachFile(const AName, AFileName, AContentType: string);

bunların altındaki detaylar nelerdir pek anlayamadım 

[ekli mail gönderim]

merhabalar

normal memo.text içindeki yazıyı  mail gönderimde sıkıntı yok ancak

ek olarak pdf de göndermek iştiyorum bunun için nasıl bir yol izlemeliyim.

  memo.text içindeki yazıyı için yazılan mail gönderme kodum:

procedure Gmail(username, password, totarget, subject, body: string);

var
  DATA: TIdMessage;
  SMTP: TIdSMTP;

begin




  SMTP := TIdSMTP.Create(nil);
  DATA := TIdMessage.Create(nil);
  SMTP.Host := 'mail.sunucuadıvar.com.tr';
  SMTP.Port := 587;
  SMTP.username := username;
  SMTP.password := password;


  DATA.From.Address := username;
  DATA.Recipients.EMailAddresses := totarget;
  DATA.subject := subject;
  DATA.body.text := body;



  SMTP.Connect;
  SMTP.Send(DATA);
  SMTP.Disconnect;
   DATA.Clear;


end;

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  mail_username := edtUSERNAME.text;
  mail_password := edtpassword.text;
  mail_to := edtto.text;
  mail_subject := edtsubject.text;
  mail_body := mmo1.text;
  //mail_body := a.pdf;

      Gmail(mail_username, mail_password, mail_to, mail_subject, mail_body);
     ShowMessage('Mail Gönderildi...');


end;