Jhonas

Monitores
  • Total de itens

    8.380
  • Registro em

  • Última visita

  1. Expression

    voce pode deixar a propriedade Transparent = True voce tambem pode usar o evento OnPrint da Expression para zerar o valor ou deixar em branco procedure TQREstoqSaida.QRExpr2Print(sender: TObject; var Value: String); begin // coloque alguma condição para que a variavel Value fique com valor zerado ou em branco Value := '0'; end; abraço
  2. Ajuda IdMessage1.Subject

    voce opde enviar email pelo gmail unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdMessage, IdIOHandler, IdIOHandlerSocket, IdSSLOpenSSL, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, StdCtrls, Buttons; type TForm1 = class(TForm) txtPara: TEdit; txtAssunto: TEdit; mmoMsg: TMemo; BtnEnviar: TButton; IdSMTP: TIdSMTP; IdSSLIOHandlerSocket1: TIdSSLIOHandlerSocket; IdMessage: TIdMessage; LblPara: TLabel; LblAssunto: TLabel; LblMensagem: TLabel; LtbAnexos: TListBox; LblAnexos: TLabel; BtnAnexos: TSpeedButton; OpenDialog: TOpenDialog; procedure BtnEnviarClick(Sender: TObject); procedure BtnAnexosClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.BtnEnviarClick(Sender: TObject); var xAnexo : Integer; begin IdSMTP.Host:= 'smtp.gmail.com'; IdSMTP.Port:= 465; IdSMTP.Username:= 'SEU USUÁRIO'; IdSMTP.Password:= 'SUA SENHA'; IdMessage.From.Address:= 'SEU [email protected]'; IdMessage.From.Name:= 'SEU NOME'; IdMessage.Recipients.EMailAddresses:= txtPara.Text; IdMessage.Subject:= txtAssunto.Text; IdMessage.Body:= mmoMsg.Lines; for xAnexo := 0 to LtbAnexos.Items.Count-1 do TIdAttachment.create(idmessage.MessageParts, TFileName(LtbAnexos.Items.Strings[xAnexo])); IdSMTP.Connect(3000); Application.ProcessMessages; IdSMTP.Send(IdMessage); ShowMessage('certo'); IdSMTP.Disconnect; end; procedure TForm1.BtnAnexosClick(Sender: TObject); begin If OpenDialog.Execute Then LtbAnexos.Items.Add(OpenDialog.FileName); end; end. veja esses links, outras formas de envio de email pelo delphi https://www.google.com.br/?gws_rd=ssl#q=email+delphi abraço
  3. Ajuda IdMessage1.Subject

    erro : Socket Error #11001 Host Not Found. idSMTP1.Host := [email protected]' ; isso significa que o host [email protected] ' não foi encontrado no servidor de email do Yahoo ou o servidor está fora abraço
  4. Ajuda IdMessage1.Subject

    e como você disse que se refere a barra (abl) eu tenho 3 barras dessa então seriam 3 edits? podem ser sim, mas não com esses nomes ( Edit1 e Edit2 ), pode estar com outros nomes clique com o mouse na barra para saber qual é o nome desses Edits para corrigir, ou voce muda o nome desses edits para edit1 e edit2 ou voce pode deletar esses componentes e colocar outros da paleta ( basta clicar no componente da paleta e clicar em algum lugar do form para o componente ser colocado no form ) OBS: Não tenho como corrigir isso para voce pois esta na sua maquina e tem que usar o seu delphi que deve estar instalado abraço
  5. Ajuda IdMessage1.Subject

    com relação ao ultimo erro procedure TForm1.Button3Click(Sender: TObject); begin ShowMessage('*************************'); end; end. abraço
  6. Utilizar comunicação serial no android

    voce pode usar a mesma biblioteca para o android http://rxtx.qbang.org/pub/rxtx/rxtx-2.1-7r2.zip http://rxtx.qbang.org/wiki/index.php/Download ou veja nesses links https://www.google.com.br/?gws_rd=ssl#q=rxtx+android+example abraço
  7. Ajuda IdMessage1.Subject

    o Componente Edit está na paleta de componentes ( Standard ) é o 6º da esquerda para a direita ( ab| ) quando voce coloca o componente no form, ele fica definido no código exemplo ================================================================= unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} end. ======================================================= para corrigir o erro de identificador não declado, basta voce colocar o componente no form abraço
  8. Diagrama

    tem muitos exemplos na net https://www.google.com.br/search?q=diagrama+de+classe+loja+de+cal%C3%A7ados&biw=1024&bih=644&também=isch&tbo=u&source=univ&sa=X&ved=0ahUKEwjXr6XJ-rnMAhXFhJAKHUsSAs8QsAQIGw abraço
  9. Ajuda IdMessage1.Subject

    Error] Unit1.pas (65) : identificador não declarado : ' edit1 ' [ Erro ] Unit1.pas (65) : identificador não declarado : ' edit2 ' [ Erro ] Unit1.pas (79) : '.' esperado, mas ';' encontrado [Erro Fatal ] Project1.dpr (5) : Não foi possível compilar unidade usada ' Unit1.pas ' 65 é o numero da linha onde o erro se encontra e refere-se a essa linha IdMessage1.Subject := edit1.Text + '''' + edit2.Text; OBS: se voce copiou e colou o código no seu form, voce esqueceu de colocar o componente Edit1. e o Edit2 o erro na linha 79, foi encontrado um ponto e virgula quando deveria ser um ponto final ( possivelmente o ultimo END do código ) abraço
  10. da mesma forma que os computadores, a velocidade depende do processador do aparelho. e da mesma forma que voce pode fazer um overclock no processador do micro, voce tambem pode fazer no processador do smartphone. http://www.androidpit.com.br/como-fazer-overclock-android mas lembre-se que o aumento na velocidade do processador, implica em maior consumo da bateria abraço
  11. Arquivos encriptados com as cifras 2048-RSA e AES-128

    solução http://howtoremove.guide/loki-virus-removal/ ou veja https://www.google.com.br/?gws_rd=ssl#q=tirar+malware+loki abraço
  12. Exportar txt para MySql

    qual é o character set que voce definiu ? sobre isso pode pode ver nesses links https://www.google.com.br/?gws_rd=ssl#q=character+set+mysql abraço
  13. Outlook

    solução https://support.office.com/pt-br/article/Reparar-Arquivos-de-Dados-do-Outlook-pst-e-ost-25663bc3-11ec-4412-86c4-60458afc5253 abraço
  14. Automato finito não determinístico

    exemplos https://www.google.com.br/?gws_rd=ssl#q=automato+finito+n%C3%A3o+deterministico+exemplos abraço
  15. exemplo de programa pronto http://www.planetadelphi.com.br/download/4988/arquivo/porgrama-para-jogos-da-mega-sena abraço