Jhonas

Se quiser colocar a imagem em um QuickReport... coloque um componente QRImage no QR e um componente OpenPictureDialog1 num Form e o codigo abaixo em um botao no Form procedure TForm1.Button1Click(Sender: TObject); begin if OpenPictureDialog1.Execute then quickreport2.QRImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName); quickreport2.Preview; end; Se quiser colocar a imagem em um Form... coloque um componente TImage no Form e um componente OpenPictureDialog1 e o codigo abaixo em um botao no Form procedure TForm1.Button1Click(Sender: TObject); begin if OpenPictureDialog1.Execute then Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); end; Maiores informações , veja os endereços no post acima abraço

Socket error (#10057): Socket tipo não suportado. Analise & Soluções: Um pedido para enviar ou receber dados foi desaprovado porque o socket não está conectado e (ao enviar em um socket datagram) nenhum endereço foi provido. Um tópico sobre este assunto, já foi resolvido ... de uma olhada http://scriptbrasil.com.br/forum/index.php...10252&st=50 abraço

Tente dessa maneira: procedure TForm1.Button1Click(Sender: TObject); begin //Configuração do IdMessage (dados da mensagem) IdMessage1.From.Address := 'fulano@bol.com.br'; //e-mail do remetente IdMessage1.Recipients.EMailAddresses := 'sicrano@bol.com.br';//e-mail do destinatário IdMessage1.Subject := 'Assunto do e-mail'; //Assunto IdMessage1.Body.Add('Mensagem do e-mail'); //Corpo da mensagem //Configuração do IdSMTP (dados do servidor de email) IdSMTP1.BoundIP := '200.70.160.140'; //Endereço IP da sua Maquina no momento IdSMTP1.Host := 'smtps.bol.com.br'; //Host SMTP do bol IdSMTP1.Port := 25; //Porta do bol IdSMTP1.Username := 'fulano@bol.com.br'; //Login do usuário IdSMTP1.Password := 'senha'; //Senha do usuário IdSMTP1.AuthenticationType := atLogin; //tipo da autenticação IdSMTP1.Connect; //Estabelece a conexão IdSMTP1.Authenticate; //Faz a autenticação try IdSMTP1.Send(IdMessage1); //Envia a mensagem except showmessage('ERRO'); //Mensagem de erro end; end; abraço

Existe os componentes Yupack para isto: Baixar os componentes: http://delphi.icm.edu.pl/ftp/d20share/yupack.zip Outros: http://www.meusdownloads.com.br/p.jsp?ppID=3a25 http://www.meusdownloads.com.br/result.jsp...dos&rtype=1 http://www.webmundi.com/delphi/dfuncaoc.asp?SubTipo=Visuais abraço

coloque o componente em um form e clique com o mouse sobre ele voce verá todas as propriedades e eventos deste componente no object inspector Exemplos com o uso do openpicturedialog: http://www.linhadecodigo.com.br/dicas.asp?...=757&sub=14 http://www.linhadecodigo.com.br/dicas.asp?...a=59&sub=14 http://www.cni.unc.br/informatica/apostila...e%20Bitmaps.doc http://www.ctu.ufjf.br/~alberto/Apostilas/...0formulario.doc abraço

Se voce postar o seu codigo fica mais facil lhe responder. abraço

então posta a parte do codigo que faz isso, para que possamos implementar o que voce esta querendo, ou então voce cria um novo fom e coloca nele um Label e aumenta a sua fonte. passa para esse Label o conteudo do campo DBEdit1 e mostra esse form se ele existir para manter este form aparecendo por 5 segundos, coloque um componente Timer neste form com o seguinte codigo procedure TForm1.Timer1Timer(Sender: TObject); begin form1.Close; end; defina a propriedade Interval do timer para 5000 abraço

Use a proriedade BandStyle e defina o campo Cod: como Group Header para um DataBand Use a proriedade BandStyle e defina os campos Desc e Quantidade: como Detail para um outro DataBand abraço

Colega, voce já tem alguma coisa feita ? como por exemplo o que foi desenvolvido neste endereço: http://forum.imasters.uol.com.br/index.php?showtopic=255417 Tutorial: Noções Básicas de Programação de Jogos http://www.geocities.com/victormsantanna/tutor01/index.html Programando Jogos em Delphi http://www.apostilando.com/download.php?co...ategoria=Delphi http://www.delphigamer.com/ http://br.geocities.com/trabalho_na_rede/P...ando_Delphi.doc http://superdownloads.uol.com.br/download/...o-jogos-delphi/ http://www.relativa.com.br/livros_template...igo_Produto=451 abraço

De maneira bem simples seria assim para campos Edits: procedure TForm1.Button1Click(Sender: TObject); var i : Integer; begin for i := 0 to ComponentCount -1 do begin if Components[i] is TEdit then if TEdit(Components[i]).Text = '' then showmessage('Existem Campos Não Preenchidos'); end; end; abraço

O que voce está querendo é imprimir a mesma coisa em cada metade da folha, como se fosse uma duplicata ? e quando o orçamento tem mais de seis ítens ? ... usa uma folha inteira ? ... duplica tambem ?

Observe as modificações: program Project1; {$APPTYPE CONSOLE} uses SysUtils; Function Pertence(vet: Array of Integer; v: Integer):Boolean; Var x: Integer; Begin For x:=1 To 7 Do If (vet[x] = v) Then Result := TRUE; End; Function Posicao(vet: Array of Integer; v: Integer):Integer; Var x: Integer; Begin If Pertence(vet,v) Then For x:=1 To 7 Do If (vet[x-1] = v) Then begin Result := x; break; end; End; VAR Vetor: Array[1..7] of Integer; x: Integer; BEGIN For x:=1 To 7 Do Begin WriteLN('Digite o ',x,'o valor'); ReadLN(Vetor[x]); End; WriteLN('Digite um valor para verificar se contem no vetor'); ReadLN(x); If Pertence(Vetor,x) = TRUE Then WriteLN('O valor ',x,' esta na posicao ',Posicao(Vetor,x),' do vetor') Else WriteLN('Este valor não pode ser encontrado'); ReadLN; END. end. abraço

Tente assim: procedure Tform1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if aCol=Length(imagem) and arow=0 then begin with StringGrid1.Canvas do begin StretchDraw(Rect,imagem[Acol].Graphic); end; end; end; abraço

Fernando ... se for para aprendizado tudo bem, mas voce montar um sistema para um cliente e colocar uma janela mostrando o nome da empresa maior e por 5 segundos, ficaria irritante. Como voce é novato, deve levar em conta que nos sistemas desenvolvidos hoje, não se usa mais digitar o codigo de uma empresa ( a não ser que voce esteja inserindo os dados dessa empresa) , voce simplesmente cria uma janela de pesquisa onde aparecem os codigos e os nomes das empresas e depois é só clicar com o mouse sobre o registro que voce quer para ver os dados dessa empresa. Procure ler um pouco mais a respeito do delphi ... clique em Destaque: Links tem muitas informações sobre o delphi http://scriptbrasil.com.br/forum/index.php?showtopic=52637 abraço

Colega... não entendi o que voce realmente quer.... (Ele funciona perfeitamente no Delphi 7 sem problema ou dificuldade de instalação) qual é a dificuldade ? abraço

Voce pode tentar coloca-lo como Escravo na IDE2 de outro micro... se ele reconhecer não é problema no HD Se não reconhecer no outro micro, pode ser problema no circuito eletronico do HD, neste caso, voce pode tentar encontrar outro circuito igual para este hd e fazer a substituição ... na maioria das vezes resolve. abraço

Oi Eder .. achei que voce já tava craque no delphi ... rs coloque o codigo no evento BeforePrint do QR, agora é só voce mudar de acordo com o que voce pretende. procedure TQuickReport2.QuickRepBeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); var time1, time2 : TTime; begin time1 := strtotime('00:01:34'); time2 := strtotime('00:01:17'); QRLabel1.Caption := timetostr(time1 + time2); end; abraço

Oi Eder ... isto é muito simples procedure TForm1.Button1Click(Sender: TObject); var time1, time2 : Ttime; begin time1 := strtotime('00:01:00'); time2 := strtotime('00:01:20'); label1.caption := timetostr(time1 + time2); end; abraço

Pessoal... quando colocar o pen drive, e ele foi reconhecido mas não aparece o icone para abri-lo, isto é erro do windows, que só será solucionado com uma recuperação através do CD de instalação ou com uma reinstalação do windows. quanto ao fato das portas USB frontais não funcionarem: primeiro pode ser inversão do conector na placa ( para não ter duvidas o fio vermelho é o positivo e deve ser ligado ao pino 1 do conector na placa ... obs o pino 10 é o pino que está sozinho < sem par > .. ou num exame visual estará marcado como 10) se o conector estiver invertido, não haverá energia eletrica para alimentar o dipositivo entretanto, se houver energia, veja no setup da BIOS se as portas USB estão habilitadas ( Enabled ) OBS: Não tente colocar o conector em pinos diferentes com o risco de queimar o dispositivo USB ou mesma a placa mãe. abraço

Não... porque se não existir a fonte que voce usou no QR será assumida uma fonte padrão procedure TFrmos.Sada1Click(Sender: TObject); begin frmrlos1:= tfrmrlos1.create(self); {Selects usados para trazer os dados no QR, que esta no form Frmrlos1} frmrlos1.QuickRep1.Preview; frmrlos1.QrOs.close; frmrlos1.free; end; Usando somente o Preview, o comado close do QR só será excutado depois que voce fechar o QR abraço

Voce vai encontrar neste endereço: https://a248.e.akamai.net/f/674/9206/0/www2...2k_dd_32464.exe http://ati.amd.com/support/drivers/xp/prev...p-cat65-xp.html abraço

Modifique o codigo para o seu uso unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; palavras : array[1..500] of string; // definir 500 palavras letras : array[1..1000] of Char; // definir 1000 caracteres x, z : integer; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var S: string; i, n , y : integer; begin x := 0; z := 0; S := memo1.Lines.Text; while Pos(' ', S) > 0 do begin x := x + 1; palavras[x] := copy(s,1,Pos(' ', S)); // SEPARAR AS PALAVRAS S[Pos(' ', S)] := '#'; delete(S,1,Pos('#', S)); //showmessage(s); n := Length(trim(palavras[x])); Edit1.Text := trim(palavras[x]); for i := 1 to n do begin z := z + 1; letras[z] := Edit1.text[i]; // SEPARA AS LETRAS DAS PALAVRAS showmessage(letras[z]); end; end; // PEGAR A ULTIMA PALAVRA DO TEXTO n := Length(trim(palavras[x])); x := x + 1; palavras[x] := copy(s,1,n); // SEPARAR A ULTIMA PALAVRAS delete(S,1,n); Edit1.Text := trim(palavras[x]); for i := 1 to n do begin z := z + 1; letras[z] := Edit1.text[i]; // SEPARA AS LETRAS DA PALAVRA FINAL showmessage(letras[z]); end; end; end. abraço

(ao form onde está o componente do quick) so se voce colocou um componente QR dentro de um form ... pode ser tambem (ou ao form que faz a chamada do componente do quick) imagine que voce fez uma chamada ao QR mas usou os eventos PreviewModeless ou PreviewModal, e logo apos este comando exista um comando para fechar a janela ou destrui-la ou ainda de libera-la da memoria, então é uma das possibilidades de ocorrer este erro. abraço

Voce precisa definir se é erro de compilação ou erro de execução, ou seja, quando você compila o programa e tem algum erro, o ponteiro do mouse para sobre a linha de comando que contem erro e no rodape da janela do delphi vai ser mostrado o erro ocorrido exemplo [Error] Unit1.pas(32): Undeclared Identifier: 'opendialog1' quando voce executa o programa e ocorrer algum erro, este será mostrado numa janela de menssagem de erro, com o erro ocorrido. sendo qual for a maneira, voce devera anotar e postar o erro para poder te ajudar. abraço

Exemplos : // Cronômetro: var Form1: TForm1; seg,seg2,acum,a:integer; implementation {$R *.DFM} procedure TForm1.Timer1Timer(Sender: TObject); begin seg:=strtoint(copy(timetostr(time),8,1)); seg:=acum; if seg = acum then begin a:=a+1; label1.caption:=inttostr(a); if a=60 then a:=0; end; label2.caption:=timetostr(time) end; procedure TForm1.BotaoStartClick(Sender: TObject); begin timer1.interval:=950; end; Outros Exemplos: http://geocities.yahoo.com.br/acropoledelphi/Crn.zip http://www.qualyinf.com.br/forum/delphi/me...s2004/3514.html http://www.mail-archive.com/delphi-br@yaho...r/msg37828.html http://www.forum.clickgratis.com.br/mentehacker/t-18.html abraço