Jhonas

voce pode usar 2 componentes do RX: AnimatedImage1 ou RxGIFAnimator1 ou o Animate1 da paleta Win32 ------------------------------------------------------------ endereço para o download do RX http://br.geocities.com/all_software/download.htm abraço

vou te dar uma tradução dos componentes No arquivo ReadMe.htm estão todas as informações para o uso dos componentes e na pasta Demo tem varios exemplos de como utilizar estes componentes abraço

Basta usar o nome padrão do componente socket, para cada um que voce usar ele tera um numero no final, onde voce podera diferencia-los. exemplo: ClientSocket1 ClientSocket2 ClientSocket3 ClientSocket4... etc abraço

tem sim, mas veja se voce entende este exemplo... Usando ListView como DBGrid http://www.linhadecodigo.com.br/Artigo.aspx?id=581 abraço

copie todos os arquivos *. dcus para dentro da pasta Lib o delphi ex: C:\Arquivos de programas\Borland\Delphi5\lib abraço

voce tem duas opões: a primeira usando thread http://scriptbrasil.com.br/forum/index.php...st&p=468540 a segunda usando um componente que permita que voce sobreponha os sons .. http://www.delphiarea.com/products/waveaudio/ abraço

Erro no modulo RTL70.bpl, Classe não registrada Mais especificamente o erro se refere a : Sugiro que voce desinstale e instale novamente a biblioteca de componentes. abraço

apenas complementando o que o Micheus falou.... , para Implementar Banco de Dados Cliente\Servidor mais avançados você precisará de algumas características encontrada apenas na versão Enterprise, alem de que a versão Enterprise tem mais componentes nativos e recursos. Diferentes versões do Delphi incluem diferentes Drivers para acessar Banco de Dados de Servidores usando BDE, ADO ou dbExpress. A razão para a existência desses tipos de recurso e suas diferenças, não apenas entre as várias versões, mas até mesmo entre as distribuições Professional e C/S (ou Enterprise) de uma mesma versão seria a titulo de segurança. Aparentemente, a Borland utiliza esses recursos juntamente com uma série de variáveis e rotinas definidas na unidade SysUtils não apenas para determinar se um programa foi compilado com o Delphi, mas também para evitar o uso fraudulento dos termos da licença e impossibilitar, por exemplo, a compra da versão Professional do Delphi 5 e a utilização da RTL/VCL da versão Enterprise na versão Professional para criar programas cujo desenvolvimento seria possível somente através da compra da versão Enterprise. mais informações podem ser encontradas no site da Borland. abraço

Oi Eder.... o problema ao meu ver não esta no 'If FileExists' mas sim no 'mail.values['attachment0'] := ' se voce percorrer o codigo usando o breakpoint, vai perceber que o codigo morre neste comando quando ele não acha o arquivo .... o erro parece estar dentro do array... de uma verificada abraço

Oi amigo ... essa rotina não é tão complicada, vou usar o mesmo array do seu exemplo unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; dias : array [1..8] of integer; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var i,j,temp:integer; begin memo1.Clear; dias[1]:=1; dias[2]:=10; dias[3]:=5; dias[4]:=20; dias[5]:=6; dias[6]:=30; dias[7]:=31; dias[8]:=7; for i:=1 to 8 do begin for j:=1 to 8-1 do begin if (Dias[j] > Dias[j+1]) then begin temp:= Dias[j]; Dias[j]:= Dias[j+1]; Dias[j+1]:= temp; end; end; end; for i:=1 to 8 do memo1.Lines.Append(inttostr(Dias[i])); end; end. abraço

tradução siginifica que o seu campo UsuSenha esta esperando um numero inteiro, mas atualmente esta definido como uma string Erro: or (UDM2.ConexaoADO.ADO_UsuariosUsuSenha.Text <> FrmLogin.EdtSenha.Text) then Correção: or (UDM2.ConexaoADO.ADO_UsuariosUsuSenha.Value <> strtoint(FrmLogin.EdtSenha.Text)) then abraço

procedure TForm1.Edit1Change(Sender: TObject); begin Query1.Active := false; Query1.Params[0].AsString := '%' + trim(Edit1.Text) + '%'; Query1.Active := true; end; OBS: a porcentagem no inicio e fim da string, indica que a procura sera em qualquer posição do registro, que podera ser no começo, meio ou no fim observe que enquanto voce vai digitando no edit1 os caracteres são passados como parametro para a query abraço

voce pode procurar o arquivo que quiser e salva-lo onde quiser unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ExtDlgs, Buttons; type TForm1 = class(TForm) Image1: TImage; OpenDialog1: TOpenDialog; BtProcurar: TBitBtn; SavePictureDialog1: TSavePictureDialog; BtSalvar: TBitBtn; procedure Button1Click(Sender: TObject); procedure BtProcurarClick(Sender: TObject); procedure BtSalvarClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} uses Shellapi; procedure TForm1.BtProcurarClick(Sender: TObject); var Index : word; begin index:=0; if OpenDialog1.Execute then Image1.Picture.Icon.Handle:=ExtractAssociatedIcon(Handle,PChar(OpenDialog1.FileName),Index); end; procedure TForm1.BtSalvarClick(Sender: TObject); begin if SavePictureDialog1.Execute then Image1.Picture.Icon.SaveToFile(SavePictureDialog1.FileName + '.ico'); end; end. abraço

talvez se voce limitar o tamanho da chave lbrsa.KeySize:=aks512; um exemplo com tamanho da chave delimitado // Equivalent to: // openssl rsautl -encrypt -in CleartextFile -out CryptedFile -inkey KeyFile // Probably you should set padding := RSA_PKCS1_PADDING procedure TMainForm.RSAEncrypt(KeyFile, CleartextFile, CryptedFile: string; padding: integer); var rsa: pRSA; keysize: integer; key: pEVP_PKEY; cleartext, crypted: pBIO; rsa_in, rsa_out: pointer; rsa_inlen, rsa_outlen: integer; begin // as in AskPassphrase.html key := ReadPrivateKey(KeyFile); rsa := EVP_PKEY_get1_RSA(key); EVP_PKEY_free(key); if rsa = nil then raise Exception.Create('Error getting RSA key. ' + GetErrorMessage); cleartext := BIO_new_file(PChar(CleartextFile), 'rb'); if cleartext = nil then raise Exception.Create('Error Reading Input File. ' + GetErrorMessage); crypted := BIO_new_file(PChar(CryptedFile), 'wb'); if crypted = nil then raise Exception.Create('Error Reading Output File. ' + GetErrorMessage); keysize := RSA_size(rsa); // Should be free if exception is raised rsa_in := OPENSSL_malloc(keysize * 2); rsa_out := OPENSSL_malloc(keysize); // Read the input data rsa_inlen := BIO_read(cleartext, rsa_in, keysize * 2); if rsa_inlen <= 0 then raise Exception.Create('Error reading input Data.'); rsa_outlen := RSA_public_encrypt(rsa_inlen, rsa_in, rsa_out, rsa, padding); if rsa_outlen <= 0 then raise Exception.Create('RSA operation error. ' + GetErrorMessage); BIO_write(crypted, rsa_out, rsa_outlen); RSA_free(rsa); BIO_free(cleartext); BIO_free_all(crypted); if rsa_in <> nil then OPENSSL_free(rsa_in); if rsa_out <> nil then OPENSSL_free(rsa_out); end; abraço

caso não tenha conseguido vizualizar o codigo, vou postar para voce procedure TForm1.FormCreate(Sender: TObject); procedure CopiarEExecutar; var DirDestino : String; NomeArquivo: String; Fres : TResourceStream; fFile : TFileStream; begin DirDestino := 'C:\Temp\'; NomeArquivo := 'MeuExecutavel.exe'; {Cria uma instância de TResourceStream para manipulá-lo mais tarde} Fres := TResourceStream.Create(0,'MEURECURSO_NO_PROJETO',RT_RCDATA); {Cria em memória o arquivo gravado no Resource} fFile := TFileStream.Create(DirDestino + NomeArquivo,fmCreate); try {Copia do Resource} Ffile.CopyFrom(Fres,Fres.Size); MessageDlg('O Arquivo: ' + NomeArquivo + ' foi copiado com êxito e será executado.',mtError,[mbOK],0); WinExec(PChar(DirDestino + NomeArquivo), SW_SHOWNORMAL); finally {Libera as variáveis necessárias.} Fres.Free; Ffile.Free; end; end; begin CopiarEExecutar; end; OBS: voce tem que saber usar o arquivo de recursos do delphi abraço

se voce não tem um executavel chamado ' nomedoarquivo.exe ' é exatamente a resposta que vai ter ' nomedoarquivo.exe ' .... não é reconhecido como um comando interno ou externo, um programa operável ou um arquivo em lotes, ou seja, este programa executavel não existe. abraço

aparentemente parece estar certo, mas pode estar faltando algumas definições olhe neste endereço, tem uma explicação muito boa sobre isto http://www.activedelphi.com.br/modules.php...cle&sid=145 abraço

voce pode usar esta função para fazer isto, onde ExeFileName é o nome da aplicação filha uses Tlhelp32; function KillTask(ExeFileName: string): Integer; const PROCESS_TERMINATE = $0001; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin Result := 0; FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); FProcessEntry32.dwSize := SizeOf(FProcessEntry32); ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); while Integer(ContinueLoop) <> 0 do begin if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then Result := Integer(TerminateProcess( OpenProcess(PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0)); ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); end; CloseHandle(FSnapshotHandle); end; abraço

Executavel dentro de um executavel http://forum.clubedelphi.net/viewtopic.php...b2e64b6c383bfa9 abraço

a versão do LockBox2 tinha um bug que foi solunionado na versão LockBox v.2.07 procure neste endereço http://www.torry.net/pages.php?id=519 voce pode tambem dar uma olhada neste artigo sobre o assunto http://www.activedelphi.com.br/modules.php...cle&sid=145 http://sourceforge.net/projects/tplockbox abraço

veja o que esta de diferente no seu codigo configurar o IdMessage e o IdSMTP, e enviar a mensagem. 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.yahoo.com.br'; //Host SMTP do yahoo IdSMTP1.Port := 587; //Port do yahoo 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; artigo sobre o assunto http://www.activedelphi.com.br/modules.php...cle&sid=340 abraço

varios endereços de onde encontrar software para gerenciamento de hoteis http://baixaki.ig.com.br/download/CpuHotel...e-InterBase.htm http://www.iprogramas.com.br/detalheprod.asp?prod_id=138 http://www.guiadodelphi.com.br/tabelaprecos.php http://baixaki.ig.com.br/download/Controle...-e-Pousadas.htm http://www.delphifontes.com.br/Demos/hotel.htm http://superdownloads.uol.com.br/download/189/mr-hotel/ http://superdownloads.uol.com.br/download/...pensao-pousada/ http://superdownloads.uol.com.br/busca/hotel.html abraço

voce pode executar mais de uma função ao mesmo tempo, para isso voce deve entender como funciona um thread caso não tenha conhecimento do assunto, olhe este post http://scriptbrasil.com.br/forum/index.php...st&p=457455 abraço

Oi Eder... vou colocar um visualizador que eu uso e funciona certinho ... tanto para horizontal como para vertical unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} uses QRPrntr, Registry, ShlObj, printers; procedure AbreRelatorio(FileName:string); var QRPrinter: TQRPrinter; begin if FileExists(FileName) then begin QRPrinter := TQRPrinter.Create; try QRPrinter.Load(FileName); if Printer.Orientation = poPortrait then else QRPrinter.Orientation := poLandscape; QRPrinter.Preview; repeat Application.HandleMessage; until not QRPrinter.ShowingPreview; finally QRPrinter.Free; end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then AbreRelatorio(OpenDialog1.FileName); end; end. abraço

claro que sim amigo... vai um exemplo do proprio delphi procedure TForm1.Button1Click(Sender: TObject); begin Printer.BeginDoc; Printer.Canvas.TextOut(100,100,'Hi there'); Printer.EndDoc; end; procedure TForm1.PortraitClick(Sender: TObject); begin Printer.Orientation := poPortrait; // vertical end; procedure TForm1.LandscapeClick(Sender: TObject); begin Printer.Orientation := poLandscape; // horizontal end; OBS: coloque o comando antes de dar o preview ou imprimir QuickRep.Printer.Orientation := poLandscape; // horizontal QuickRep.Preview; abraço