[delphi-br] Volante para jogos
Olá, Preciso desenvolver um programa que capture quantos graus foi girado de um volante conectado ao PC pela porta USB. Vejo que drivers já acompanham o produto. Minha dúvida é saber como faço para adquirir esses valores que provém do volante. Por exemplo, qualquer componente capaz de manipular com joysticks consegue acessar essas informações do volante? Isso é algo padronizado, não importando o tipo de joystick conectado? Usando a conexão USB, Gameport ou Porta Serial, a forma como adquiro essas informações sempre são as mesmas? Ou é necessário identificar isso? Alguém possui algum exemplo, material ou uma boa explicação sobre o assunto? Cheguei até achar uns componentes freeware pra pegar as inputs de um joystick, mas não sei se isso é algo genérico. Estou muito cru no assunto e não consegui achar na internet algo que explicasse melhor isso. Quem puder me ajudar em algo, agradeço. Abraço a todos, Felippe [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema no envio de email
Olá, tente isso: 1) Conecte-se ao POP (usando POP.Connect); 2) Use autenticação (usando SMTP.AuthenticationType := atLogin); 3) Conecte-se ao SMTP (usando SMTP.Connect); 4) Envie a mensagem (usando SMTP.Send(IdMsgSend)); 5) Disconecte-se do SMTP (usando SMTP.Disconnect); e 6) Disconecte-se do POP (usando POP.Disconnect;). Abraço. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Lista de Ips na Rede
Olá, eu tenho esse codigo aqui caso ajuda-lo. Ele pega o nome da maquina, mas de repente, vendo lá como foi feita a função vc pode dar um jeito de exibir o IP. Coloque um combobox, um progressbar e um botão... execute. abraço. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) ComboBox1: TComboBox; ProgressBar1: TProgressBar; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } procedure ScanNetworkResources(ResourceType, DisplayType: DWord; List: TStrings); public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} type PNetResourceArray = ^TNetResourceArray; TNetResourceArray = array[0..100] of TNetResource; function CreateNetResourceList(ResourceType: DWord; NetResource: PNetResource; out Entries: DWord; out List: PNetResourceArray): Boolean; var EnumHandle: THandle; BufSize: DWord; Res: DWord; begin Result := False; List := Nil; Entries := 0; if WNetOpenEnum(RESOURCE_GLOBALNET, ResourceType, 0, NetResource, EnumHandle) = NO_ERROR then begin try BufSize := $4000; // 16 kByte GetMem(List, BufSize); try repeat Entries := DWord(-1); FillChar(List^, BufSize, 0); Res := WNetEnumResource(EnumHandle, Entries, List, BufSize); if Res = ERROR_MORE_DATA then begin ReAllocMem(List, BufSize); end; until Res ERROR_MORE_DATA; Result := Res = NO_ERROR; if not Result then begin FreeMem(List); List := Nil; Entries := 0; end; except FreeMem(List); raise; end; finally WNetCloseEnum(EnumHandle); end; end; end; procedure TForm1.ScanNetworkResources(ResourceType, DisplayType: DWord; List: TStrings); procedure ScanLevel(NetResource: PNetResource); var Entries: DWord; NetResourceList: PNetResourceArray; i: Integer; begin if CreateNetResourceList(ResourceType, NetResource, Entries, NetResourceList) then try ProgressBar1.Max := Integer(Entries); for i := 0 to Integer(Entries) - 1 do begin if (DisplayType = RESOURCEDISPLAYTYPE_GENERIC) or (NetResourceList[i].dwDisplayType = DisplayType) then begin List.AddObject(NetResourceList[i].lpRemoteName, Pointer(NetResourceList[i].dwDisplayType)); end; if (NetResourceList[i].dwUsage and RESOURCEUSAGE_CONTAINER) 0 then ScanLevel(@NetResourceList[i]); ProgressBar1.Position := i+1; Application.ProcessMessages; end; finally FreeMem(NetResourceList); end; end; begin ScanLevel(Nil); end; procedure TForm1.Button1Click(Sender: TObject); begin ScanNetworkResources(RESOURCETYPE_DISK, RESOURCEDISPLAYTYPE_SERVER, ComboBox1.Items); end; [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Video Aula
http://sourceforge.net/projects/camstudio/ http://www.dirfile.com/autoscreenrecorder.htm http://johnbokma.com/softwarerecommendations/InstallBSR_v15a.exe [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Email Delphi
Oi Esse arquivo .hpp é de C++. Não entendo direito disso não. O que sei é que ele serve como interface para que outra unit seja capaz de acessá-la. Teoricamente, o código que você mostrou, torna disponível esse PDFVersion num escopo público. E como ela é uma classe AnsiString, deve ter que possuir aquele nome PACKAGE após o extern. Enfim, o que leva a crer que alguém usa esse PDFVersion. Você já olhou se esse componente RvRenderPDF não tem nenhuma propriedade pra definir a versão do PDF? Algo como RvRenderPDFRelatorio.PDFVersion ou similar? E será mesmo que é por causa disso que o PDF não abre em versões mais antigas do Acrobat de seus clientes? Infelizmente não obtemos outras respostas do grupo ainda que pudesse sugerir algo diferente. Apenas dei uma idéia que parece fazer sentido. Também não sei mais o que poderia ser. :( Abraços, Felippe [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Email Delphi
Olá, É, eu olhei na internet e realmente tá difícil achar algo sobre isso. Essa propriedade Version é do próprio componente. Quando ao FontEncoding, eu diria que não. Eu fico imaginando aqui: o Acrobat Reader é uma ferramenta grátis. De repente, os desenvolvedores desse componente sempre tentam se manter atualizados com o último lançamento do Acrobat e talvez nem permitam a gente mexer na versão do arquivo. Isso é ruim. Agora, pensando por uma outra pespectiva: Repare que as versões dos PDFs são 1.3, 1.4, ..., 1.7. Normalmente, quando a versão maior não muda (no caso o 1.), significa que programas mais antigos são capazes ainda de ler o arquivo. Apenas haverão alguns recursos disponíveis no arquivo que o software será incapaz de oferecer ou exibir. No entanto, se seus arquivos PDFs estão criptografados, com senha ou proteções talvez, realmente a versão mais antiga pode ser incapaz de ler o arquivo por inteiro. Pois novos algorítimos estarão sendo usados e o Acrobat incapaz de decriptografar. Além disso, existe um recurso que reduz o tamanho do arquivo PDF e que também usam métodos de compressão de dados que interfere na versão do Acrobat a ser usado depois. Por fim, eu acredito que para a máxima compatibilidade, tem que desativar qualquer coisa ligada a criptografia, senha, redução de arquivo, etc. Assim, deve funcionar. Abraço, Felippe [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Email Delphi
Não sou entendido no assunto, isso é apenas o que eu acho. Pode nem ser verdade. Enfim, de repente tenha haver com a versão do arquivo PDF gerado pelo RvRenderPDF. No Rave Reports 5.1, dentro da unit RpRenderPDF, tem lá uma constante chamada PDFVersion: const PDFVersion: string = '%PDF-1.3'; De repente, no Delphi 2006, esse número 1.3 seja algo como 1.7, que TALVEZ possa impedir de versões mais antigas do Acrobat Reader conseguir abrir. Imagino que a versão 1.3 seja do Acrobat 4.x adiante. Referência: http://www.adobe.com/devnet/pdf/pdf_reference.html Abraço. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Só retorna uma linha!
Olá, Não tenho muita experiência nessa parte, mas espero que eu esteja falando a coisa certa para você. No evento OnNeedData do QuickReport, tem uma variável chamada MoreData. Enquanto você mantiver essa variável como True, ele fica executando esse evento. E dentro deste evento, você precisa dar um Next na sua Query para acessar o próximo registro da sua consulta junto com códigos do tipo: QRLabel1.caption := FieldbyName('Assunto').AsString; para preencher o relatório. Quando chegar no último, você seta MoreData como False. Para saber se é o último registro, bastaria você colocar o código: MoreData := not Query.EOF; Até mais. Felippe [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] OFF-TOPIC: Quanto vocês sugerem para valor de manutenção mensal?
Olá Isso já foi falado bastante por aqui... procure na página do grupo em 'Busca Avançada' pelo Assunto Dica: Quanto cobrar?. Tem a opinião de várias pessoas falando sobre isso. Vale a pena ler. O Walter escreveu uma muito boa lá também. Abraço, Felippe [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problemas com Thread
Caro amigos, Estou criando uma thread que chama a função Windows.Beep. O tempo de duração do Beep é gigantesco (é necessário isso infelizmente). No entanto, mais tarde, quero destruir essa thread antes mesmo da função Windows.Beep terminar. Ou seja, a thread está parada lá no comando do Beep. Existe alguma maneira de terminar essa thread obrigatoriamente? Ou então, cancelar o comando do Windows.Beep forçadamente, pois assim a thread termina com certeza! Agradeço qualquer ajuda. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Turbo Delphi Explorer (problema com key)
Olá, Estou tendo problemas em baixar o arquivo de ativação do Turbo Delphi Explorer. Estou tentando no link http://www.borland.com/downloads/download_turbo.html. Lá sou redirecionado para http://www.codegear.com/tabid/144/Default.aspx. E dalí, qualquer link, inclusive do Turbo Delphi Explorer que realmente quero, dá pra uma página não encontrada. Alguém poderia me informar como faço pra conseguir o serial number? O site mudou? O que está acontecendo? Agradeço qualquer ajuda. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] componente time para inteiro
A variável do tipo Time já um real. logo, fazer: var a : double; b : ttime; begin a := b; funcionará normalmente. T+. [As partes desta mensagem que não continham texto foram removidas]
Re:[delphi-br] Reconhecimento de voz (EXEMPLO)
Não sei se seria interessante, mas poderíamos ir colocando os arquivos no 4shared. Criei um link pra lá protegido por senha. E não dá pra ninguém alterá-la. Link: http://www.4shared.com/dir/1079813/fb4383ee/Delphi_Community.html Senha: delphicommunity Permissões: Upload, criar pastas, deletar e renomear arquivos. Não sei se seria ruim ou não permitir as pessoas de deletar e renomear arquivos. Dependendo do que vocês acharem, eu tiraria essa opção. Tem 1 GB de espaço lá. Abraços, Felippe. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Cronometro
Já respondi a sua pergunta no dia 11/08 na lista DTDelphi. Você chegou a ler? [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] ADO - Não vejo as alterações na tela
Olá, Muito bem visto, mas não é isso. Foi de tanto eu jogar código pra lá e pra cá pra tentar resolver isso que no final ele ficou na ordem errada. Enfim, mesmo na ordem certa o erro persiste. Vou experimentar fazer o que o Eduardo falou: ADOConnection1.BeginTrans; ExecSQL; ADOConnection1.CommitTrans; Verei o que acontece. Depois volto pra dizer o resultado. Obrigado pela atenção de ambos! Abraço. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] ADO - Não vejo as alterações na tela
Caro amigo Eduardo, Também não funcionou. O banco é atualizado certinho, no entando a aplicação continua vendo os dados antigos. Alguma outra idéia? Se é que existe... Abraços e obrigado. Felippe. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] ADO - Não vejo as alterações na tela
Francisco, O meu aqui grava no banco corretamente. Nenhum erro é gerado. Mas o aplicativo persiste em enxergar os dados anteriores a minha alteração. Se tiver mais alguma sugestão, por favor, me informe. Obrigado, Abraço. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] ADO - Não vejo as alterações na tela
Por exemplo: o comando de deletar: with ADOQuery1 do begin SQL.Clear; SQL.Add('DELETE FROM MainTable WHERE ID = ' + edtID.Text); ExecSQL; MostrarInfo; AtualizarTabela; end; O comando MostrarInfo é isso: with datamodule1.ADOQuery3 do begin edtID.Text := FieldByName('ID').AsString; edtNome.Text := FieldByName('nome').AsString; cbPessoa.Text := FieldByName('tp').AsString; edtEndereco.Text := FieldByName('endereco').AsString; edtBairro.Text := FieldByName('bairro').AsString; edtCidade.Text := FieldByName('cidade').AsString; mskCEP.Text := FieldByName('cep').AsString; ... etc ... end; AtualizarTabela: with datamodule1 do begin frmUpdate.Show; // só pra caso demorar, uma janelinha bonitinha... Application.ProcessMessages; try ADOQuery3.Close; DesativarTudo; AtivarTudo; ADOQuery3.Open; finally frmUpdate.Close; end; end; Esses ativar e desativar tudo... procedure TDataModule1.AtivarTudo; begin if ADOConnection1.Connected then Exit; ADOConnection1.Connected := True; ADOTablePrincipal.Active := True; DataSource1.Enabled := True; ADOQuery3.Active := True; // aqui dentro tem: SELECT * FROM MainTable ORDER BY Nome end; procedure TDataModule1.DesativarTudo; begin ADOQuery3.Active := False; ADOConnection1.Connected := False; ADOTablePrincipal.Active := False; DataSource1.Enabled := False; end; Mesmo com isso tudo, depois de deletado o registro, continuo vendo quando dou o comando MostrarInfo do registro deletado. Mas devo lembrar que no banco de dados .MDB realmente ele foi deletado de verdade. Por isso acho estranho. Obrigado, Felippe. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] ADO - Não vejo as alterações na tela
Olá, Estou tendo problemas usando os componentes da paleta ADO. Estou acessando um banco Access e tenho uma janela de cadastros. Eu altero algum registro e continuo vendo os mesmos itens sem terem sido alterados. A alteração realmente ocorre, pois abro pelo Access e vejo lá. Enfim, no Delphi é como se ele não fizesse um Refresh na tabela pra que eu possa acessar os dados com as alterações. Logo após a alteração, eu já fiz um Refresh, Requery, ReSync, fechei e abri a tabela (além de desativar datasource, ADOConnection e reativa-las), coloquei keepconnection como false e NADA. O que eu poderia estar fazendo de errado? Qual seria a solução para isso? PS: Eu fechando o programa e reabrindo, aí, consigo ver as alterações. Agradeço desde já, Abraços, Felippe. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] ADO - Não vejo as alterações na tela
Já fiz isso, e mesmo assim dá na mesma. Outra sugestão? - Original Message - From: Eduardo To: delphi-br@yahoogrupos.com.br Sent: Tuesday, August 15, 2006 1:00 PM Subject: Re: [delphi-br] ADO - Não vejo as alterações na tela Tente Query.Refresh; Se não funcionar tente o close e depois open q funciona. Eduardo Felippe Nagato escreveu: Olá, Estou tendo problemas usando os componentes da paleta ADO. Estou acessando um banco Access e tenho uma janela de cadastros. Eu altero algum registro e continuo vendo os mesmos itens sem terem sido alterados. A alteração realmente ocorre, pois abro pelo Access e vejo lá. Enfim, no Delphi é como se ele não fizesse um Refresh na tabela pra que eu possa acessar os dados com as alterações. Logo após a alteração, eu já fiz um Refresh, Requery, ReSync, fechei e abri a tabela (além de desativar datasource, ADOConnection e reativa-las), coloquei keepconnection como false e NADA. O que eu poderia estar fazendo de errado? Qual seria a solução para isso? PS: Eu fechando o programa e reabrindo, aí, consigo ver as alterações. Agradeço desde já, Abraços, Felippe. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] DLL - Dúvidas
Olá, O tipo float em C possui 4 bytes de tamanho e o tipo Single no Delphi também. Imagino que esse seja o mais adequado. Eu já usei para efeitos de estudo Assembly, mas não lembro mais de nada! Quando você usa stdcall, os parâmetros são empilhados da direita para esquerda. É alguma coisa assim, mas tem que pesquisar. Inclusive tem algumas coisas relacionadas como quem deve empilhar isso e quem irá limpar a pilha após o retorno da função. Se você não quiser usar esse borlandmm.dll, use o fastsharemem.pas. Declare ele na sua DLL e no DPR do seu programa. Ele precisa ser a primeira coisa a ser declarada lá no Uses. Aí você pode usar String. Mas pra ficar mais compatível pra outros ambientes, use Pchar. Informações e download do arquivo: http://www.codexterity.com/fastsharemem.htm []'s Felippe [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Determinar Tempo!
Oi, Use o componente Timer na palheta System. Coloque na propriedade Interval como 60 milisegundos (que representa 10 minutos) e dentro do evento OnTimer, a função a ser executada. []'s Felippe [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] CRC de arquivos.
Elazar, Ok, mas ao menos teria que usar uma funçãozinha pra setar a data de modificação do EXE logo após sua alteração, pra não ficar muito na cara que foi feito isso. Ou mesmo fazer uma verificação parcial, pois deixando de ler o local onde vc escreveu no EXE o CRC do secundário, vai resultar na mesma coisa. Essas coisas de anti-pirataria, imagino que o importante é dar o máximo de trabalho pro cracker... para descobrir todos os segredos que foram usados na segurança do programa. É testar conhecimento e paciência dos caras. Você sabe né, impedir... complica. []'s [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] CRC de arquivos.
Walter, Sim, de fato. Penso em colocar num arquivo externo como você disse. E sendo em vários arquivos, melhor ainda. Sobre a idéia de Elazar: Entendi até um certo ponto. Não saquei da vantagem de inserir no EXE original o tal CRC do arquivo secundário pra depois ter que retirar novamente. Qual vantagem em mudar temporariamente o CRC do EXE? []'s [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] CRC de arquivos.
Oi Walter, Também estou frisando que entendo sobre o lance de calcular o CRC etc... como o proprio Elazar disse. Enfim, o calculo do CRC diz que temos que ler cada byte do arquivo desejado. Sobre o VirusScan, tenho 1 teoria: Ele não checaria todo o arquivo, somente alguma(s) partes do seu próprio EXE. E na região do executável onde fica guardado a informação do CRC parcial previamente calculado que eu falei, ele pode escrever qualquer coisa alí com tranquilidade (sem mudar o CRC parcial). Se é que vocês me entendem. Mas de qualquer maneira, prefiro ainda validar por fora mesmo. Preciso ir, []'s [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] CRC de arquivos.
Allan, O que eu quis dizer é que você tem que guardar o valor do CRC do EXE em algum lugar para posteriormente validar se ele ainda é o mesmo quando refizer o cálculo. Pois o problema em sí de você armazenar esse valor no próprio EXE é que quando você recompilar o mesmo, o CRC já terá mudado novamente. E assim, não será mais possível checar a integridade do EXE. Por exemplo: Em alguma parte do seu programa você diz: IF GETCRCVALUE = X THEN TUDOBEM ELSE ERRO; Onde GETCRCVALUE é a função que calcula o valor do CRC do seu EXE. X é o valor do CRC correto do seu EXE a ser checado. No entanto, esse valor X só será conhecido APÓS você ter compilado seu EXE. Você não tem como adivinhar isso antes. O que resultará sempre como uma validação falsa. Por isso, fica mais fácil você compilar seu programa e depois usando uma DLL ou qualquer outra coisa por fora, para validar isso. Pois nesse ponto, o CRC do seu EXE principal já estará determinado. Abraços. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] CRC de arquivos.
Olá a todos, Só uma coisa que reparei uma vez e deve mostrar o bom uso deste recurso: um amigo meu estava contaminado com algum vírus. Em algum momento imagino que esse vírus mexeu no EXE do programa Nero Burning Rom (para gravação de CDs). Quando ele tentou abrir o Nero, o mesmo mandou uma mensagem informando que o EXE foi modificado... talvez por vírus. E acho que abriu o programa normalmente. Isso foi na versão 5, se não me engano. Sempre imaginei que ele validasse isso por CRC. Por isso me interesso sobre o assunto. Óbvio que isso não assegura completamente o programa contra pirataria, pois de qualquer maneira estaremos armazenando a informação, seja onde for, do valor CRC do nosso EXE. No entanto, seria mais um recurso pra dificultar as coisas. Só não acho que deveríamos informar pro usuário: Ah! Você mexeu no meu EXE. Pois daria muita bandeira que estamos usando CRC. Prefiro informar qualquer outra coisa. Até mesmo que o serial não estivesse correto. A quem interessar, também estou dentro! Abraço, Felippe. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Memo colorida
Aqui tem um exemplo pra colorir, mas aí você teria que adaptar o código: http://www.swissdelphicenter.ch/torry/showcode.php?id=2150 []'s - Original Message - From: Arthur Souza To: delphi-br@yahoogrupos.com.br Sent: Monday, June 19, 2006 3:18 PM Subject: [delphi-br] Memo colorida Pessoal é possível que minha Memo exiba meu texto em várias linha só que cada linha uma cor...? Obrigado [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Procedure global
Tem que declarar em interface... assim: unit Unit2; interface procedure x ( x:String); implementation procedure x ( x:String;) begin // corpo procedure end; -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
Re: [delphi-br] Olha o problemão aí, estou n ovamente aqui com isto. Ilustríssimo Andreano Lanusse, veja se pode ajudar.
Allan, Acho que você poderia pegar a imagem e convertê-la para Base64. Daí, você terá um texto do jeito que você quer aí. Após isso, é decodificar pra ter o conteúdo original. Pois parece que é assim que os arquivos que você anexa aos emails são transferidos pela internet. O motivo pra usar Base64 é que a saída dessa codificação possui apenas os seguintes caracteres: ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/ No entanto, você já terá que ter consciência que esse texto codificado ocupa mais espaço que seu conteúdo original. Procure mais sobre esse assunto, pois acho que essa é a solução mais fácil para seu problema. Abraço. Atenciosamente, Felippe -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
Re: [delphi-br] TEXT TO SPEECH
To te mandando por email uns arquivos que achei nas minhas coisas... Nem sei exatamente o que são, pois não tive tempo pra olhar... mas espero que te ajude em algo. Total de 2.89MB. Abraço, Felippe -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] TEXT TO SPEECH
O email voltou... vc teria que me informar um endereço de email que aceite os arquivos zipados. Mandei para [EMAIL PROTECTED] Na mensagem que voltou, foi mencionado esse email: [EMAIL PROTECTED] Felippe. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Rotina Executada em Tempos
Desculpe-me, mas não entendi. Como assim sem ele saber ou sentir? Você não disse que iria permitir que o usuário pudesse alterar esse intervalo de tempo para executar a rotina? Felippe -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Rotina Executada em Tempos
Use um componente Timer que fica na guia System. Coloque a propriedade Interval como 180 (milissegundos) e seu código no OnTimer. Durante a execução do programa, para mudar o intervalo de tempo, desative o Timer, mude o valor de Interval e, em seguida, ative-o novamente. Exemplo: Timer1.Enabled := False; Timer1.Interval := 6; // representa 1 minuto Timer1.Enabled := True; -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Calculo com Horas
Haylo, Pelo que entendi, veja se é isso mesmo que você quer. function TemPermissao (HoraEntrada, HoraSaida : TTime) : Boolean; var Agora, a, b : TDateTime; begin Agora := Now; if HoraEntrada HoraSaida then begin a := Trunc(Agora) + HoraEntrada; b := Trunc(Agora) + HoraSaida; end else begin a := Trunc(Agora) + HoraEntrada; b := Trunc(Agora) + HoraSaida + 1; end; Result := ((a = Agora) and (b Agora)); end; Atenciosamente, Felippe. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Replace numa String
Oi, Use a função StringReplace: Memo1.text := StringReplace(Memo1.text, #13#10, ' ', [rfReplaceAll]); Experimente isso pra ver como fica... Atenciosamente, Felippe -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] tempo de inatividade
Esta função te retorna o tempo em milesegundos que o PC não foi mais usado... function LastInput: DWord; var LInput: TLastInputInfo; begin LInput.cbSize := SizeOf(TLastInputInfo); GetLastInputInfo(LInput); Result := GetTickCount - LInput.dwTime; end; Atenciosamente, Felippe. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Alteração do relógio
Oi, Eu faria assim: Imagine que seu programa possa rodar junto na inicialização do Windows. Neste instante, seu programa poderia gravar em algum lugar do PC, a data-hora atual e o valor de quanto tempo o Windows está ligado (função GetTickCount). A partir daí, você tem como saber, independente da hora do sistema real, o horário verdadeiro. Seria apenas somar a data-hora que você capturou no início com a diferença entre o tempo que Windows já está ligado neste instante com o tempo ligado capturado inicialmente. Daí, você poderia inclusive usar alguma função para acertar a data-hora atual no sistema pra ficar certinho. Agora, precisa analisar bem sobre salvar aquelas informações na inicialização do programa. Deveria também inserir informações se naquele dia o programa já foi aberto, etc etc etc. Pois, por algum motivo, alguém poderia fechá-lo, ou coisa do tipo, sendo necessário abrí-lo novamente. Até mesmo dado um Reset no PC. Isso pode ser implementado de acordo com as necessidades e criar a melhor configuração para evitar ao máximo fraudes neste método de alterar o horário do sistema. Imagino que não existe algo infalível quanto a isso... apenas você pode dificultar as coisas pro usuário que não esperaria que o programador tivesse dado muita atenção a alguns detalhes. Não sei se fui claro ou que essa fosse uma solução razoável pra se implementar. Qualquer coisa, é só falar. Atenciosamente, Felippe. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] DLL - SEM CASAR COM ELA !!!
Basta usar as DLLs de forma dinâmica. Este é um exemplo de acessar dinâmicamente: type TStrPcharFunction = function (P: string): Pchar; stdcall; function CallFunction(DLL_File, DLL_Function, Param : String) : String; var HInst: THandle; FPointer: TFarProc; MyFunct: TStrPcharFunction; begin HInst := SafeLoadLibrary (DLL_File); if HInst 0 then try FPointer := GetProcAddress (HInst, PChar(DLL_Function)); if FPointer nil then begin MyFunct := TStrPcharFunction (FPointer); Result := MyFunct (Param); end else Result := '#Error - The function ' + DLL_Function + ' was not found.'; finally FreeLibrary (HInst); end else Result := '#Error - ' + ExtractFilename(DLL_File) + ' library not found.'; end; Na DLL, cria-se funções neste padrão: function NOMEFUNCAO (Paramentro : String) : Pchar; export; stdcall; Modo de usar: var s : string begin s := CallFunction('c:\MinhaDLL.dll', 'NOMEFUNCAO', 'MinhaString'); Atenciosamente, Felippe. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] DLL DINÂMICA
Adapte o código para melhor o atendê-lo... Exemplo de parâmetro String retornando uma String: type TStrPcharFunction = function (P: string): Pchar; stdcall; function CallFunction(DLL_File, DLL_Function, Param : String) : String; var HInst: THandle; FPointer: TFarProc; MyFunct: TStrPcharFunction; begin HInst := SafeLoadLibrary (DLL_File); if HInst 0 then try FPointer := GetProcAddress (HInst, PChar(DLL_Function)); if FPointer nil then begin MyFunct := TStrPcharFunction (FPointer); Result := MyFunct (Param); end else Result := '#Error - The function ' + DLL_Function + ' was not found.'; finally FreeLibrary (HInst); end else Result := '#Error - ' + ExtractFilename(DLL_File) + ' library not found.'; end; Na DLL, cria-se funções neste padrão: function NOMEFUNCAO (Paramentro : String) : Pchar; export; stdcall; Modo de usar: var s : string begin s := CallFunction('c:\MinhaDLL.dll', 'NOMEFUNCAO', 'MinhaString'); -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Help!!!!
Poderia ser feito assim, desde que as datas sigam um padrão do tipo: 01/01/05 (ou seja, 8 caracteres por data) No caso, seria interessante desativar Stop on Delphi Exceptions em Debugger Options. uses DateUtils; function PegaDatas (Datas : String; Ano : Word) : String; var i : integer; t : TDate; function DataEhValida(Data : String) : Boolean; begin Result := True; try strtodate(Data); except Result := False; end; end; begin i := 1; while DataEhValida(copy(Datas, i, 8)) do begin t := strtodate(copy(Datas, i, 8)); if YearOf(t) = Ano then Result := Result + ' ' + formatdatetime('dd/mm/yy', t); inc(i, 9); end; Result := copy(Result, 2, length(Result)); end; Usaria assim: edit2.Text := PegaDatas(Edit1.text, 2005); Edit1 teria algo como 20/04/06 25/05/05 01/01/01 Edit2 ficaria como resposta 25/05/05 Se tiver algum erro aí, faças as correções... Atenciosamente, Felippe. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Fechar Form (Outra Duvida)
Oi, Então pra que serve aquele RELEASE ou FREE que vocês dão no form quem o chamou, umas vez que o caFree já faz isso? Agradeço desde já, Felippe. - Original Message - From: Macfly [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, June 10, 2005 11:10 PM Subject: Re: [delphi-br] Fechar Form (Duvida) Olá.. No evento onClose: Action := caFree; []'s MacFly -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Fechar Form (Duvida)
Olá, Aproveitando o assunto... Eu quero criar o form em tempo de execução. Mas não quero que o Form seja Modal... tem como fazer isso e depois de algum jeito destruir o Form após ser usado? Tipo: quando eu apertar o X pra fechá-lo, ele se auto-liberar da memória? Obrigado desde já, Felippe. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: SMS
Moro no Rio e no meu funcionou. T+ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Retornar permissão de acesso de um arquivo
Olá, Alguém sabe como faço pra que uma função me retorne informações sobre permissão de acesso a um determinado arquivo que eu passe como parâmetro? Tipo, se tenho acesso a leitura, gravação, modificação, etc... Não sei mais onde procurar sobre isso. Estou usando o Windows 2000. Obrigado desde já, Felippe. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Sobre DLLs não dinâmicas
Tenho 2 dúvidas sobre DLLs: - Quando defino as funções em meu programa que estão na DLL, no qual não as carrego dinâmicamente, e executo meu programa, as funções que estão na DLL são carregadas juntas ao EXE ou gasta-se memória somente no momento de sua utilização? - Se tenho uma variável global numa DLL e chamo uma função através do meu EXE dessa DLL e atribuo, supomos, o valor 10 na mesma: a função termina, volta-se pra meu EXE e de lá chamo uma outra função dessa DLL pra procurar ver o conteúdo daquela variável global. Continuará sendo 10 ou perde-se este valor? Caso perca, como faço pra não perder? Obrigado. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Unicode em um Tedit
Alguém sabe me informar como fazer que um TEdit me mostre um texto que está escrito em outro idioma no qual o formato seja aquele lance de Unicode, não sei se é isso, mas 2 bytes por caracter digitado. A propriedade dele é um String, logo 1 byte por caracter e não serve pra mim. Obrigado. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Liberar Excel da Memoria
Já tentou algo assim nesta ordem? ExcelApplication1.ActiveWorkbook.SaveAs(NomeDoArquivo,xlNormal,'','',false,f alse,xlNochange,xlUserResolution,False,EmptyParam,EmptyParam,0); ExcelApplication1.Quit; ExcelApplication1.Disconnect; Abraços, Felippe. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Parametros para DLL
Olá, Até hoje, só consegui resolver o problema de parâmetro de saída do tipo string, pchar, ponteiros etc numa DLL usando o tal do fastshareman. Costuma-se complicar um pouco quando se decide não usá-lo. Senão, tinha que aguentar os access violation em algum momento da execução do programa ou mesmo quando fechava ele. T+ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Write (Buffer)
Caros amigos, Eu possuo uma String S e desejo usar especificamente o comando Write ou WriteBuffer do TMemoryStream para escrever o conteúdo de S. Porém ele pede uma variável de Buffer. Eu costumava criar um array de bytes A para ser usado como Buffer. Eu coloco cada letra de S em A usando o comando ORD. Gostaria de saber se existe uma maneira mais facil de preencher A o que está em S sem ficar usando a combinação FOR e ORD pra cada letra. Não sei se fui claro. Obrigado desde já, Felippe. -- No virus found in this outgoing message. Nenhum v_rus encontrado na mensagem de sa_da. Checked by AVG Anti-Virus. Version: 7.0.298 / Virus Database: 265.6.10 - Release Date: 10/01/2005 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Arquivo binário
Dê uma olhada no Help do Delphi sobre Blockread e Blockwrite. Lá deve ter exemplos. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Help em Arrays... à 4 anos que estou neste impasse e não saio !
O que o amigo quis dizer eh que funciona, porém quando passa de 200x200, dá pau. Nao sei dizer tb o motivo. Mas o que acontece quando vc cria arrays dinamicos no Delphi 5? Não me recordo de qualquer problema na criação dos mesmos no Delphi 5. Mas nunca cheguei a criar um array tão grande quanto ao seu. - Original Message - From: Julio Cesar [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Thursday, October 21, 2004 6:19 PM Subject: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste impasse e não saio ! nao me lembro se funciona no delphi 5, mas acredito q sim, certa vez eu fiz um tridimensional, mas foi no 6 tenta ai... mas eu tenho quase certeza q funcione, pq vi algo parecido no delphi 3 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html