Jump to content
Fórum Script Brasil

XdogX

Membros
  • Posts

    27
  • Joined

  • Last visited

About XdogX

XdogX's Achievements

0

Reputation

  1. 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.
  2. 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?
  3. 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.
  4. 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.
  5. 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!!
  6. 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.
  7. 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
  8. 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
  9. 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.
  10. XdogX

    Ausencia

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

    Browser

    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...
  12. XdogX

    Browser

    Cara se você tive MSN eu tenho tb [email protected] 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
  13. XdogX

    Delphi

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

    Links

    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
×
×
  • Create New...