Douglas Soares

Boa tarde, uso o Indy 9 no delphi 7 e gostaria de saber como pegar o tamanho de um arquivo, já tentei IdFtp.Size('nomedoarquivo') e não da certo... por favor me deem uma luz! Abraços

Fiz de outra forma... não como eu queria... pelo menos está funciona... obrigado!

Olá, tive muitos problemas assim pois usava muitos sql.add, no entanto tente colocar tudo junto.. Assim: begin AdoQuery1.Close; AdoQuery1.sql.clear; AdoQuery1.sql.add ('select * from TblArqRetorno '); AdoQuery1.Open; if not (AdoQuery1.IsEmpty) then begin with AdoQuery2 do begin close; AdoQuery2.sql.clear; AdoQuery2.sql.add ('Update TblMovimentacao TblMovimentacao.vrpago = AdoQuery1.vr, ' + 'TblMovimentacao.dtpgto = AdoQuery1.dt ' + 'FROM dbo.TblMovimentacao ' + 'INNER JOIN TblArqRetorno ON TblMovimentacao.seq = TblArqRetorno.numerodoc '); AdoQuery2.open; showmessage('boletos quitados com sucesso!!!'); end; end; end; Abraços

Salve pessoal.... dps de tempos sem postar aqui estou eu de novo.... Aqui tem um link ensinando a fazer o que eu quero, http://www.skzimmelman.com/Articles/buttongrid.htm porém não consegui de maneira alguma... será que alguém poderia me dar uma luz? Eu preciso adicionar botões com imagens, tipo bitbtn ou speedbutton no dbgrid.... Obrigado!

Putz... ressucitar tópico de 2007.... tenso eim....

Fiz isso com a pasta do Firebird e agora não consigo iniciar mais o seu serviço, nem como aplicação... pois a pasta está totalmente bloqueada... só quero bloquear exclusão e não vizualização... Obrigado

já tentei, fala que não achou o Bpl na maquina... não acho ele de jeito nenhum... e outra já desinstalei o delphi, limpei todos as pastas, passei o CCleaner... cabei com tudo... e reinstalei... quando fui ver, o componente fiuduma$@$@!$@$@!$ tava la dinovo sem eu ter add.... deve ter alguma pasta fia da mae que não ta sendo apagada.... aff sei la..... e ai... o que eu faço? Obrigado

Ainda não é isso que eu quero meu amigo Jhonas, quando eu instalar meu programa, eu gostaria de não deixar usuários excluirem a pasta dele, e nem a pasta do Firebird, pois uso o mesmo... os usuários "Leigos" tem mania de desinstalar o firebird ou o programa, e reinstalarem... dai vira uma POR#$@%@##@$@... então se conhece uma forma assim de bloquear.... me da um help ae! Obrigado

já consegui obrigado! segue o código: SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_PAGEDOWN, 0); Vlw

Desculpa Jhonas, eu falei errado... não uso RichText, eu uso RichEdit :ninja: :ninja: :ninja:, e ae?

Como eu faço isso via código???

Não, ele não aparece em Install Packages... esse é o problema... ele ta dentro do bpl do standand components do embarcadero... o que eu faço?

Bom dia... como eu faço pra rolar automaticamente um richEdit conforme for adicionando linhas... é um chat... dai vo recebendo mensagens porem ele não rola automaticamente.....e ai... alguma dica? Obrigado

Acho que vo tenta novamente... nem sei mais como começar, to estressado... segue as fontes: http://www.comandodigital.com.br/Client_Fontes.rar Infelizmente agora terei que pedir uma ajuda bem completa ehehehe... Gostaria de uma coisa simples... quando alguém converse e marque a caixa reservado... ele crie uma tab num page control... e as mensagens com essa pessoa venham pra essa janela com um outro richtext... não precisa ser necessariamente um pagecontrol... pode ser forms individuais :rolleyes: .... então tá lançado o desafio... se alguém tiver com tempo eu fico muito grato! Obrigado! p.s: para conectar no servidor que está aqui no serviço ligado para testes, faça um atalho do executavel, vá nas propriedades e no final da linha destino coloque o nome do seu usuário, exemplo: Destino: "C:\Client_Fontes\Chat_Client.exe" Douglas dai é só aplicar e entrar nele! Vlw

já resolvi a questão do richedit facilmente... obrigado pela ajuda... qualquer hora eu tento fazer desse jeito dinovo, ehehehe... E otra eu to mt véio pra isso... (16), num tenho cabeça... perdi tudo que sabia (nunca soube nada, ahah), esqueci dos cursos que fiz (não fiz nenhum)... preciso me aperfeiçoar(verdade!), eheheheheh Abraços....

Aff desisto, deixei tudo numa mesma tela, não vai ter problemas... agora preciso mudar a cor de fonte de certas palavras... isso já é pra outro post!, vlw pelas dicas! Aprendi muita coisa útil! Abraços

Clica em View Unit e dps vai em Chat_Tools, é ai que eu to mechendo agora ehehehe...

certo... se quiser dar uma olhada... toma aqui o link do meu proprio site: http://www.comandodigital.com.br/chat_client.rar Novamente a mensagem de erro é clara. Uma coisa é a declaração de uma procedure e outra é a de um método. Apesar de similares, não são a mesma coisa. Para que você possa atribuir um "procedimento" à um evento de qualquer componente, você tem que declará-lo com todos os parâmetros definidos para aquele evento e ele tem que estar declarado dentro de uma classe - neste caso você pode fazer isto no seu form. Algo assim: TForm1 = Class(TForm) ... procedure Cliquei(Sender :TObject); end; Então... o problema é que não estou usando um form... o local que estou é apenas uma unit com funções... não da pra eu fazer esse tipo de declaração, pelo menos eu acho que não... Obrigado!

Micheus, se você tivesse um tempo hj dps da uma e meia... gostaria que me desse um helpzito xD, aqui tem as fontes do programa para analise... http://www.4shared.com/file/153210966/7ad6...hat_client.html e já vem com um atalho pra logar com usuario micheus, queria só mostrar pra você como está... caso você compile e não consiga conectar, é só criar um atalho do executavel e passa um parametro no final que é o usuario, exemplo: "C:\Chat.exe" Micheus beleza! caso outra pessoa puder me ajudar fico grato tambem! Obrigado!

Agora eu crio o componente assim: with TMemo(AddComponent(TMemo, Point(0, 0))) do begin Name := Trim(de + '_memo'); Align := alClient; Parent := tab; Visible := true; Scrollbars := ssVertical; Font.Size := 8; Font.Name := 'MS Sans Serif'; Lines.Clear; OnClick := cliquei; end; a função AddComponent é essa: function AddComponent(BaseClass: TComponentClass; p: TPoint): TComponent; begin result := BaseClass.Create(frmPrincipal); if result.InheritsFrom(TWinControl) then begin with TWinControl(result) do begin Parent := tab; Left := p.X; Top := p.Y; Visible := True; Hint := result.Name; ShowHint:= true; end; end else if result.InheritsFrom(TGraphicControl) then begin with TGraphicControl(result) do begin Parent := frmPrincipal.PageControl1; Left := p.X; Top := p.Y; Visible := True; Hint := result.Name; ShowHint:= true; end; end; end; porem está dando erro no OnClick: OnClick := cliquei; ele fala o seguinte: [Error] Chat_Tools.pas(161): Incompatible types: 'method pointer and regular procedure' eu acho que é porque a minha procedure OnClick só está na Unit... não tem form... tipo frmPrincipal.Cliquei.... num sei... não tenho mt experiencia com isso.... o que eu devo fazer? Obrigado... de resto funcionou tudo!

Como eu suspeitava... fiz um teste.... se eu dou ShowMessage no nome de todos os componentes do form... ele não me tras o nome dos componentes criados em RunTime... tem alguma dica pra mim??? Obrigado

Cara você é um gênio, eu nem sabia que existia esse treco de TypeCast... huahuauha, vai da pra mim fazer Muuuuuuuuitas coisas que eu sempre quis fazer. huhuhuhuh, só tem um probleminha nesse código... acho que o componentcount não conta os componente que eu criei em runtime... e isso é um problema... quando eu abro o chat e escrevo uma mensagem pra outro usuario, ele vai normal no Memo padrão, que se chama Geral_memo, mas quando clico em reservado, ele cria um outro tabsheet e um novo memo... porem eu envio a mensagem e não vai nem pro Geral_memo e nem pro memo novo.... quando eu voltei pra guia Geral... no local que está o Geral_memo, e digitei a mensagem dai ele veio no memo.... ele não funciona em outros memos criados em runtime... entendeu??? Obrigado pela ajuda até aqui!!!!!

Recebi também, eheheh, Matheus você quer um icone desses? pede pro MLeandroJr!, ou pro Jonathan Queiroz, eles te arrumam um rapidaum hasuhuassuhaasuhasuh Vlw

uiuiuiui cada pessoa doida... eheheh

Bom dia pessoal, eu crio memos no runtime, e tenho um page control, eu crio uma tab e um memo na hora... é um chat! cada aba tem o nome da pessoa que to conversando, por exemplo, Douglas, o memo se chamara o nome da aba + _memo, exemplo: Douglas_memo, no entanto, tem uma procedure que recebe a mensagem no memo que eu gostaria de aprimorar para receber no memo que estou caso seja recebida em reservado... assim ó... procedure TfrmPrincipal.Escrevemensagem(Memo : TMemo); begin Memo.lines.add(ReceiveMsg(cmd.text)); end; procedure TfrmPrincipal.ShowReceiveMsg; var i : integer; nome : string; begin for i := 0 to Self.ComponentCount - 1 do begin nome := PageControl1.ActivePage.Name; with Components[i] as TMemo do begin if ExistePalavra(nome, 'memo') then Escrevemensagem(Components[i]); end; end; end; O erro acontece ali no Escrevemensagem(Components); [Error] UClient.pas(205): Incompatible types: 'TMemo' and 'TComponent' Se tivesse um StrToMemo seria mais facil... mais não tem ehehehehe... alguém pode me ajudar?