woryon

Isso eu sei...... Mais como fazer isso?

beleza Gente..... To fazendo uma conexão a um MYSQL. Gostaria que alguém postasse um comando para mostrar um campo em um ListBox. Que com DataField não dá. Pois da um erro "Mising Query: Table and procedure". E qual é o comando para fazer um busca de loguin, se possivel, postem um exemplo. Muito Obrigado.

Gente, beleza To ficando doido Estou fazendo um gravador, em que ezistem 3 comandos. Gravar, Stop e Salvar. Gostaria de colocar todos em um unico botão. Quando clicado ele começa a gravação, e quando soltar o botão ele grava e salva. Que eventos uso??? Valewss

Gente, beleza Como faço para somar um Alias inteiro em formato de moeda? E como faço para pegar o total de um Alias e o total de outro (exemplo: Lucro$ -Divida$) e colocar em um edit? "Atenção no meu Banco de dados, os Alias são Lucro$ e Divida$."

{Inclua na seção uses: Windows No Windows podemos desligar o monitor afim de economizar energia elétrica. Normalmente este recurso é controlado pelo próprio Windows. Porém sua aplicação Delphi também pode fazer isto. O exemplo abaixo desliga o monitor, aguarde 5 segundos e re-liga monitor.} SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0); Sleep(5000); { Aguarde 5 segundos } SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1); //PS: Este recurso pode não funcionar dependendo da configuração do sistema. E esse para o cd: // Inclua na seção uses: MMSystem // Para abrir mciSendString('Set cdaudio door open wait', nil, 0, handle); // Para fechar mciSendString('Set cdaudio door closed wait', nil, 0, handle);

Vai lá Arlon . Se vai consegui!!!!

Para abrir um programa é: winexec('d:/arquivos/arquivo.exe',);

Desculpe, esqueci de dizer, gostaria de colocar um gauge para ser concluido o envio para cada email do Data Field. Exemplo: Fulano@seila.com.br [||||||||||||||||||22%__________________] E assim vai com todos os email do Data Field. Obrigado

Bom dia , gostaria de enviar um email para cada email de um Banci de Dados (Data Field). alguém me ajuda ?

O link que peguei é esse LakeOFSoft

já tentei.

Olha, já vi um programinha assim que tinha num site Delphi Hacker. Da uma procuradinha no Google como decompilador Delphi. falou

Existe UnaTypes.Hpp mais DCU não.

Eu já i um exemplo desses no Paneta Delphi na seção Arquivos. Faz uma busca lá e fala pra gente.

Gente, aceita. Num tem nada a ver vir ao forum, eu entro umas 20 vezes por dia mais não consigo ajudar e vocês entram uma vez e ajudam a quem conseguem. Vai lá

O caminho ta certo mais o erro continua

beleza gente, estou fazendo um programa de conversação com voz mais tem um erro me dando nos nervos. Usei uns componentes que peguei na net, mais na parte de declaração de uses ta dando um erro que diz [Fatal Error] u_vcNetTalk_main.pas(37): File not found: 'unaTypes.dcu'. "unaTypes" é o nome do componente. alguém me ajude?!?!?!?!

Gente tambem estou precisando disso . alguém me ajuda!!!!!!!!!!!! Por favor

É assim, coloque para abrir um novo form com apenas o que você quer que imprima e coloque esse código ou num botão ou no evento on Show do form aberto. {O exemplo a seguir é um procedimento para imprimir um form. Para imprimir o form, basta informar o nome do mesmo como parâmetro: PrintForm(Form1). Antes de imprimir, a cor atual do form é salva em OldColor e alterada para clWhite (frm.Color := clWhite), para evitar gasto excessivo de tinta da impressora (ou tonner).} PrintForm uses Windows, SysUtils, Printers, Forms, Graphics, Controls, Classes; . . . procedure PrintForm(frm: TForm); var bmp: TBitMap; x, y, WDPI, HDPI: Integer; OldColor: TColor; begin Screen.Cursor := crHourGlass; OldColor := frm.Color; frm.Color := clWhite; frm.Update; bmp := frm.GetFormImage; with Printer do begin Orientation := poLandscape; BeginDoc; HDPI := PageHeight div 8; WDPI := PageWidth div 8; x := PageWidth - Round(WDPI * 0.4); {0.4" margem direita} y := PageHeight - Round(HDPI * 0.5); {0.5" Altura do rodapé} Canvas.StretchDraw(Rect(0, 0, x, y), bmp); EndDoc; end; bmp.Free; frm.Color := OldColor; Screen.Cursor := crDefault; end;

Como fazer para que um objeto que não tenha o read only fica como tal. Algum código ou algo assim?

Deu incompatibilidade com o TDateTime Porque????

Que pena cara, não quero ser moderador não, mais vamos sentir sua falta . Eu não sei muita coisa. Indico o Arlon ou S3C

Tem como pegar a hora a ser feita a contagem regressiva de um Banco de Dados Atravez de um DBLabel?

alguém manda pra mim um código de contagem regressiva para quando chegar no 0 ela disparar um código, Por favor Gente. To nescessitado.

Gente, num enrrola o coitado. É mais ou menos assim: Procedure CriaCodigo(Cod : String; Imagem : TCanvas); Const digitos : array['0'..'9'] of string[5]= ('00110', '10001', '01001', '11000', '00101', '10100', '01100', '00011', '10010', '01010'); Var Numero : String; Cod1 : Array[1..1000] Of Char; Cod2 : Array[1..1000] Of Char; Codigo : Array[1..1000] Of Char; Digito : String; c1,c2 : Integer; x,y,z,h : LongInt; a,b,c,d : TPoint; I : Boolean; Begin Numero := Cod; For x := 1 to 1000 Do Begin Cod1 [x] := #0; Cod2 [x] := #0; Codigo[x] := #0; End; c1 := 1; c2 := 1; x := 1; For y := 1 to Length(Numero) div 2 do Begin Digito := Digitos[Numero[x ]]; For z := 1 to 5 do Begin Cod1[c1] := Digito[z]; Inc(c1); End; Digito := Digitos[Numero[x+1]]; For z := 1 to 5 do Begin Cod2[c2] := Digito[z]; Inc(c2); End; Inc(x,2); End; y := 5; Codigo[1] := '0'; Codigo[2] := '0'; Codigo[3] := '0'; Codigo[4] := '0'; { Inicio do Codigo } For x := 1 to c1-1 do begin Codigo[y] := Cod1[x]; Inc(y); Codigo[y] := Cod2[x]; Inc(y); end; Codigo[y] := '1'; Inc(y); { Final do Codigo } Codigo[y] := '0'; Inc(y); Codigo[y] := '0'; Imagem.Pen .Width := 1; Imagem.Brush.Color := ClWhite; Imagem.Pen .Color := ClWhite; a.x := 1; a.y := 0; b.x := 1; b.y := 79; c.x := 2000; c.y := 79; d.x := 2000; d.y := 0; Imagem.Polygon([a,b,c,d]); Imagem.Brush.Color := ClBlack; Imagem.Pen .Color := ClBlack; x := 0; i := True; for y:=1 to 1000 do begin If Codigo[y] <> #0 Then Begin If Codigo[y] = '0' then h := 1 Else h := 3; a.x := x; a.y := 0; b.x := x; b.y := 79; c.x := x+h-1; c.y := 79; d.x := x+h-1; d.y := 0; If i Then Imagem.Polygon([a,b,c,d]); i := Not(i); x := x + h; End; end; end; //Como Usar: procedure TForm1.Button1Click(Sender: TObject); begin CriaCodigo('03213213241',Image1.Canvas); end; Ou com a fonte que tambem tenho. Me contate por email ou mensager que te passo. Flwssssssssssss