XdogX

Cara, tp eu já varios programa feitos em Delphi q fazem isso q você ta falanu, mas não sei como se faz, o Game Marker faiz isso, eu acho q é extraindo e colocando resources nele, já tentei ate em asm, mas ainda não tive boms resultados.

Agradeço a sua ajuda!!! Vlw mesmo!

Eu gostaria de saber alguma rotina em que possa pegar informações de arquivos mp3, como autor, nome da musica, duração , etc.. alguém pode me ajudar?

Coloca DoubleBuffered := true, apenas para o componente sp Isso pode ser bug do componente e não da sua aplicação. Eu tenho varios componentes q eu pegeui na net e me deram mt trabalho.

Como eu faço pra enviar arquivos pro sockets? Tp, eu consigo enviar textos, mas como eu faço pra enviar arquivos? é q eu to fazenu uma cliente pra irc, não vai ter nenhuma programção script ainda na primeira versão, mas eu preciso fazer a transferencia de arquivos, bom qualquer ajuda é sempre bem aceita.

Bom, eu tentei quase todas as formas possiveis mas não consegui como fazer um form ficar sem a barra de titulo, sabe, so as bordas, a mesma bor q tem embaixo mas tb em cima ( virada ehclaro ), a minha ultima alternativa foi usar imgs, mas não deu mt certo. Bom, então qualquer ajuda é bem válida!!

Tp, é assim: Agora vo usa o exemplo com o seu banco de dados. De acordo com vc , sua tabela paradox tem os campos Código, Nome, RG, CPF: e vamos supor que o nome dela seja clientes. Para não esquecer o tipo dos campos:CODIGO -> integer; NOME -> alpha ( mesma coisa q string) RG -> integer; CPF -> integer; Então vo manter os nomes dos campos como os acima: Primeiro defino uma variavel global com o nome UltCdg do tipo integer: private { Private declarations } public { Public declarations } end; var UltCdg: Integer; //eis a variavel citada acima implementation {$R *.dfm} Esta variavel vai servir pra mim colocar o valor do ultimo campo CODIGO +1. Ou seja com o comando SQL que eu vou executar abaixo, que vai ser quando a pessoa abrir o formulário. Esta rotina abaixo vai pegar da sua tabela paradox o ultimo valor do campo CODIGO, assim somando a mais um, eu tenho o valor do proximo campo CODIGO. Query1.close; Query1.Sql.Clear; Query1.Sql.Add('SELECT MAX(CODIGO) FROM Clientes'); {com o comando SQl acima eu seleciono o ultimo valor do campo CODIGO da tabela clientes} Query1.Open; UltCdg := IntToStr(Query1.fields[0].AsInteger) +1 {aqui eu defino a nossa variavel de tipo integer como o ultimo valor do campo CODIGO e somando 1, ou seja, assim eu consigo o próximo código a ser adicionado. Se Não tiver nenhum cadastro anterior retornara 0. Que somando a 1, dara 1 ou seja, o primeiro cadastro da tabela. Se você cadastra 5 pessoas, vai ficar em ordem(1,2,3,4,5) se você deletar, ele vai começar do zero novamente Entende, so que por enquanto a variavel so ta definida, vamos usa-la mais na frente para adicionar dados na tabela. } Vamos supor que você usou esta rotina no OnShow do form, Então ta esperano que cadastrem algum usuário Como você tem 4 Campos na sua tabela, mas só tres em que os usuários podem alterar ( NOME, RG, CPF ) Então o form vai ter uma label mostrando o código do cadastro ( o valor da variavel UltCdg ) e tres edits, uma pra cada campo e o principal uma botão para cadastrar. ta agora vamos na rotina do botão de cadastro: Sendo edit1 -> valor a ser adicionado ao campo NOME edit2 -> valor a ser adicionado ao campo RG edit3 -> valor a ser adicionado ao campo CPF Query1.close; Query1.Sql.Clear; Query1.Sql.Add('INSERT INTO Clientes (CODIGO,NOME,RG,CPF) VALUES (:pCodigo, :pNome, :pRg, :pCpf) '); //comando SQL para inserir Query1.ParamByName('pCodigo').AsInteger:=UltCdg; //aqui você define um tipo de um atalho SQl para o valor da variavel UltCdg Query1.ParamByName('pNome').AsString:=Edit1.text; //aqui você define um tipo de um atalho SQl para o edit1 ( nome ) Query1.ParamByName('pRg').AsInteger:=strtoint(Edit2.text); //aqui você define um tipo de um atalho SQl para o edit2 ( rg ) Query1.ParamByName('pCpf').AsInteger:=strtoint(Edit3.text); //aqui você define um tipo de um atalho SQl para o edit3 ( cpf ) Query1.ExecSQL; //executa o codigo sql Pronto, assim, acima, você adiciona os dados na sua PARADOX, mas existe outro modo de fazer isso sem a variavel, em vez de você mandar o ultimo valor do campo codigo pra uma variavel mande pra um label.

Bom eu criei uma tabela do tipo PARADOX pra testar direitinho as rotinas que eu vou te passar, a tabela chama clientes.db, tem dois campos Cli_Codigo(codigo, que é o q eu vo fazer o auto-increment manual, ele é tipo integer) e Cli_Nome ( nome do cliente): Ai vai a rotina pra pegar o ultimo código: Query1.close; Query1.Sql.Clear; Query1.Sql.Add('SELECT MAX(Cli_Codigo) FROM Clientes'); Query1.Open; Com esses comandos acima eu pego o valor do ultimo campo código existente. Você pode executar esse código ao a pessoa entrar no formulario de cadastro e depois que ela fizer mais um cadastro ( bom isso fica do seu jeito); Bom, pra pegar o proximo campo código é fazer o seguinte: IntToStr(Query1.fields[0].AsInteger) +1 Dando assim o proximo código, bom, vamos supor que eu tenha guardado ele em uma variavel(tipo integer), então: UltimoCdg := IntToStr(Query1.fields[0].AsInteger) +1 Na hora de adicionar alguém no cadastro eu faço a seguinte rotina: Query1.close; Query1.Sql.Clear; Query1.Sql.Add('INSERT INTO Clientes (Cli_Codigo,Cli_Nome) VALUES (:pCodigo, "NomeDaPessoaASerAdicionado") '); Query1.ParamByName('pCodigo').AsInteger:=UltimoCdg; Query1.ExecSQL; Tai, falou, qualquer coisa é so perguntar

Bom, tem um jeito mais complicado de fazer isso, do campo Código você tira o +- (autoincrement) e faz o autoincrement por código, ou seja. No programa, toda hora de adicionar um usuário você ve o valor do campo Código anterior do que você vai adicionar, se tiver em branco ( ou seja, não tem campo ) você coloca 1 no campo código, mas se não tiver em branco, você soma o numero que tem la com 1, dando assim o campo seguinte. beleza?? Tp, você usa SQL para entrada e retirada de dados, se sim responde aqui que eu te passo o código de como fazer isso (SQL) falou

Mals ae cara, eu não queria causar conflito com ng, e tb to errado de julgar as pessoas a primeira vista, mas so tava me protegendo contra o q o programa poderia fazer ao codigo de fonte dos executaveis que eu crio.

Cara, a unica coisa q eu não faço pra ser um mod é participar efetivamente, pois eu me cadastrei neste forum ontem!!

Compriende, não estou falando para usar o keyspy com ma intenções, mas você pode usar ele pra capturar o texto da janela em q o usuario esta, assim, você pode saber quando ele entra em uma janela especifica, executar algum comando e assim vai...

Cara se você tive MSN eu tenho tb d4n1l0d@hotmail.com Eu agora online a e pode envia e-mail nele tb, vo ve se acho algo pra isso mais a ideia do keyspy continua, se você quise eu te envio ele por e-mail

sei la, isso é estranho é a primeira vez q eu vejo algum erro desse tipo

Um não li todos mas não sei se já postaram http://www.delphi.eti.br Portal Delphi e http://www.guiadodelphi.com.br Guia do Delphi