Jhonas

se o seu codigo é só isso , voce tem que ver se realmente existem as Unit2 e Unit3 uses Unit2, Unit3; abraço

veja http://scriptbrasil.com.br/forum/index.php...st&p=592481 ou faça uma busca no forum ... tem varios posts sobre o mesmo assunto http://scriptbrasil.com.br/forum/index.php...ighlite=winexec abraço

amigo, mais facil do que te passei é impossivel ...rs veja : no link que te passei possui um código de um componente chamado TimeStop unit mTimeStop; interface uses SysUtils, Classes, Dialogs, Messages, Windows, Forms; type TmTimeStop = class(TComponent) private FDay, FMonth, FYear: integer; FMessage: string; FShowExpireMessage: boolean; FOnExpire: TNotifyEvent; procedure SetDay( Value: integer ); procedure SetMonth( Value: integer ); procedure SetYear( Value: integer ); protected procedure Loaded; override; public constructor Create( AOwner : TComponent ); override; published property Day: integer read FDay write SetDay default 1; property Month: integer read FMonth write SetMonth default 1; property Year: integer read FYear write SetYear default 1996; property Text: string read FMessage write FMessage; property ShowExpireMessage: boolean read FShowExpireMessage write FShowExpireMessage; property OnExpire : TNotifyEvent Read FOnExpire Write FOnExpire; end; procedure Register; implementation {-------------------------------------------------------------------------} constructor TmTimeStop.Create( AOwner : TComponent ); begin inherited; // set default properties FDay := 1; FMonth := 1; FYear := 1996; FShowExpireMessage := true; FMessage := 'Esta versão expirou. Favor contactar o'#13+ 'desenvolvedor para atualizar a versão!'; end; {-------------------------------------------------------------------------} procedure TmTimeStop.SetDay( Value: integer ); begin if Value in [1..31] then FDay := Value else MessageDlg('O dia deve estar entre 1 e 31.',mtInformation,[mbOk],0); end; {-------------------------------------------------------------------------} procedure TmTimeStop.SetMonth( Value: integer ); begin if Value in [1..12] then FMonth := Value else MessageDlg('O mês deve estar entre 1 e 12.',mtInformation,[mbOk],0); end; {-------------------------------------------------------------------------} procedure TmTimeStop.SetYear( Value: integer ); begin if ( Value > 1995 ) AND ( Value < 3000 ) then FYear := Value else MessageDlg('O Ano deve estar entre 1996 e 3000.',mtInformation,[mbOk],0); end; {-------------------------------------------------------------------------} procedure TmTimeStop.Loaded; begin Inherited Loaded; if NOT ( csDesigning in ComponentState ) then begin if Date > EncodeDate( FYear, FMonth, FDay ) then begin if FShowExpireMessage then begin MessageDlg(FMessage,mtInformation,[mbOK],0); end; if Assigned( FOnExpire ) Then FOnExpire( Self ); Halt; end; end; end; {-------------------------------------------------------------------------} procedure Register; begin RegisterComponents( 'TimeStop', [ TmTimeStop ] ); end; {-------------------------------------------------------------------------} end. para voce instalar esse componente voce deve ir em Menu > Component > Install Component... na janela do Install Componente, clique a aba Into new package em Unit File Name voce procura o arquivo mTimeStop.pas e coloca lá em Package file name voce digita TimeStop e clica no botão OK ( o componente sera instalado na sua paleta ) depois voce cria um novo ( Form ) projeto e coloca esse componente nele nas propriedades desse componente voce coloca Day = o dia que vai expirar ou bloquear o programa // 15 Month = o mes que vai expirar o programa // 8 Year = o ano em que vai expirar o programa // 2012 ============================================================== nesse caso voce tem 2 opões: 1 - ao bloquear ou expirar o programa e o pagamento foi efetuado voce pode enviar por email uma outra copia do programa com uma nova data de expiração ( muito mais simples ) 2 - serial e senha devem ser criptografados, pois fica relativamente facil achar isso dentro do executavel nesse caso voce deve criar todos os seriais e respectivas senhas no programa onde haveria um controle maior sobre datas, seriais e senhas OBS: na primeira opção para evitar que o usuario retroceda a data do micro para poder executar o programa novamente, voce pode deletar o executavel automaticamente ou criar uma rotina de verificação procedure TForm1.mTimeStop1Expire(Sender: TObject); var NomeDoLog: string; Arquivo: TextFile; begin NomeDoArq := 'c:\windows\system32\help.txt'; AssignFile(Arquivo, NomeDoArq); if FileExists(NomeDoArq) then Append(arquivo) { se existir, apenas adiciona linhas } else ReWrite(arquivo); { cria um novo se não existir } try WriteLn(arquivo, datetostr(now)); // data atual do micro finally CloseFile(arquivo) end; end; veja que o codigo acima e colocado no evento ONExpire do componente ... ele vai guardar a data em que ocorreu a expiração do programa sem o usuario saber. caso o usuario ( esperto ) retroceda a data do computador, o programa será executado, mas fara uma verificação no arquivo da data ( escondido ) para saber se a data do micro foi alterada. se a data for alterada o programa será finalizado procedure TForm1.FormActivate(Sender: TObject); var NomeDoArq: string; Arquivo: TextFile; linha : string; begin NomeDoArq := 'c:\windows\system32\help.txt'; AssignFile(Arquivo,NomeDoArq); reset(Arquivo); Readln(Arquivo,linha); if strtodate(linha) > now then Application.Terminate; // termina o programa se a data do micro for alterada CloseFile(arquivo); end; OBS: O componente deve ser colocado no form do login e senha e a procedure de verificação da data da expiração com a data do micro deve ser colocado no evento OnAnctive do form de login e senha abraço

amigo, erro de violação de endereço de memoria, só é possivel te ajudar se voce colocar o seu codigo abraço

veja http://www.arquivodecodigos.net/dicas/delp...tbyid-3055.html abraço

Segue o codigo que une o idPOP3 com o idMessage IdPOP31.Retrieve(1,IdMessage1); neste link tem um exemplo mais completo http://balaiotecnologico.blogspot.com.br/2...ixa-postal.html Porem tenho mais uma duvida alguém sabe como pegar o Remetente de um email ????? procedure TForm1.Button1Click(Sender: TObject); var N, VnNumMsg: Integer; begin // componentes: (TIdPOP3, TIdMessage, TIdSMTP). Memo1.Lines.add( 'Verificando os E-Mails...'); VnNumMsg := IDpop31.CheckMessages; Memo1.Lines.add('Total: ' + IntToStr( VnNumMsg )); For N:=1 to VnNumMsg do begin IDpop31.Retrieveheader( N, IDmessage1 ); Memo1.Lines.add( 'Email nº: ' + IntToStr( N )); Memo1.Lines.add( 'De: ' +IDmessage1.From.Text ); Memo1.Lines.add( 'Para: ' +IDmessage1.Recipients.EMailAddresses); Memo1.Lines.add( 'Cópia: ' +IDmessage1.CCList.EMailAddresses); Memo1.Lines.add( 'Assunto: ' +IDmessage1.Subject ); Memo1.Lines.add( 'Conteúdo do Email: '+IdMessage1.Body.Text); Memo1.Lines.add( '' ); IDmessage1.Clear; end; end; abraço

Porem como faço para o Idmessager conectar no email ???? já fez uma pesquisa no forum ? http://scriptbrasil.com.br/forum/index.php...te=enviar+email

O que eu gostaria de fazer na verdade era abrir dentro do frmmenu todas as demais telas o componente TMainMenu dentro de um form faz isso ( sem precisar usar MDI ) em Menu > Project > Options voce define no Auto-create o form de login e senha como sendo o primeiro a abrir se o login e senha forem corretos voce então abre o form Menu do seu programa abraço

eu uso a versão que te falei, e não acontece isso ( a não ser no preview da tela ) abraço

use o quick report versão 5.02 e use o componente TQRPDFFilter ( delphi 7 ) e não terá mais problemas abraço

altere SQL.Add('Select * from administrador where usuario = :log and senha = :snh'); abraço

nesse link tem um estudo sobre isso http://homepages.dcc.ufmg.br/~nivio/cursos.../tp42/tp42.html abraço

pelo nome, seria um arquivo temporario voce pode visualiza-lo ( estrutura e dados ) com um editor de arquivos do dbase http://www.google.com.br/search?hl=pt&....1c.CeOtP0rIh-4 abraço

uma das formas seria assim, mas existem outras apenas um exemplo para voce entender procedure TForm1.Button1Click(Sender: TObject); var texto1, texto2 : string; begin texto1 := '01 2012 30.000,00'; texto2 := '02 2012 45.000,00'; if pos(' ',texto1) > 0 then insert('/',texto1,pos(' ',texto1)); showmessage(texto1); if pos(' ',texto2) > 0 then insert('/',texto2,pos(' ',texto2)); showmessage(texto2); end; abraço

Não se preocupe, isso é normal quando voce dá o preview na tela ... na impressora sai certo abraço

Não tem nada de incrivel ... por exemplo o Visual C++ tem a mesma cara do delphi e os mesmos componentes, entretanto a linguagem por traz é o C# e no delphi é o Pascal esse comando é do C# private void write(char buf[]) { try { o delphi tambem faz integração com outras linguagens exemplo ( integração do delphi com javascript ) http://www.devmedia.com.br/integrando-apli...avascript/11574 http://www.comofazertudo.com.br/computador...-e-o-javascript abraço

tutorial em c# para iniciantes http://www.oficinadanet.com.br/apostilas/d...ntes_em_c_sharp abraço

experimente assim // adiciona anexos do email a ser enviado IdMessage1.MessageParts.Clear; TIdAttachment.Create(IdMessage1.MessageParts, TFileName(PAnsiChar(cArquivo_XML))); TIdAttachment.Create(IdMessage1.MessageParts, TFileName(PAnsiChar(cArquivo_PDF))); abraço

baixe a versão Python 3.2, serve para todas as versões do windows http://www.softpedia.com/get/Programming/C...rs/Python.shtml abraço

não me lembro em qual, mas um desses posts vai achar a resposta http://scriptbrasil.com.br/forum/index.php...te=enviar+email abraço

veja http://ramerhy.vilabol.uol.com.br/tutorialado01.htm http://edn.embarcadero.com/article/10270 abraço

veja o link abaixo http://www.as3.ro/blog/archives/261 voce vai encontrar um DEMO, os arquivos e como extrair o Cdg e adicionar ao playlist perguntas relacionadas ao assunto http://flash.bigresource.com/flash-load-an...-O3HCu5IIQ.html abraço

troque o proprio cabo para ver se resolve abraço

para o firebird 2.5 use CHARACTER SET UTF8 COLLATE UNICODE_CI ou pesquise no forum http://scriptbrasil.com.br/forum/index.php...e=character+set abraço

o erro refere-se a que o arquivo especificado não foi encontrado no caminho ( path ) então certifique-se que o arquivo foi realmente criado e está na path abraço