Churc

Opa Viu estou sem Delphi aqui mas vou tentar te ajudar, veja se não tem a propriedade exemplo Memo1.Lines.Line[X].Text := ou Memo1.Lines[X].Text := Onde X é a Index, ou seja, a linha que deseja alterar, lembrando que começa com 0 então a primeira linha não é 1 é 0 abraço

Opa Então, .scr é extensão para arquivos de proteção de tela... O que você quer saber, como criar proteção de tela no Delphi? Ou quer fazer um executável rodar como .scr? abraço

Ahhhhhhhhhhhhhhh Agora que você colou a função inteira que eu vi o erro rs Seguinte, você criou a função mas ela não tem ligação com o Form, então o compilador não vai reconhecer o EdScreenName mesmo, pra isso, você teria que linkar sua função com o form da seguinte forma: Há outras formas também, chamando o form ou também pra otimizar a leitura do código Eu aconselho você usar ou o exemplo 1 ou o 3 abraço

Opa mariquito, se da erro no edScreenName então talvez esteja linkado errado o componente, que deve ser um Edit, tente remover este edit e colocá-lo novamente com o nome EdScreenName WriteTextk voce definiu como String correto? abraço

Opa hauahu foda é o Micheus eu apenas dei uma opinião...Se quiser saber um pouco de UDP, da uma olhada na pasta Demos do Delphi, em FastNet possui um exemplo completo, foi assim que aprendi... Você tem IP dinâmico e não estático rs De qualquer forma você vai precisar saber o IP da máquina Servidor, não há como mesmo, sabendo o IP é só colocar em RemoteHost o IP do servidor fica igual como se fosse conectar local... abraço

Opa Talvez: WriteTextk := '<' + edScreenName.Text + '>' + '<' + '"Server"' + '>' + '<' + 'Mensagem' + #13 + #10 + '>'; abraço

Opa Desculpe se intrometer, mas você pode fazer o seguinte... Tem um evento do Socket que é onSocketError certo? Então nele você pode tratar os erros, mais especificamente você pode colocar nesse evento o Seguinte ErrorCode := 0; Se não me engano vai instruir ao componente a não dar nenhuma mensagem de erro mas não tenho certeza, eu já passei por isso uma vez, mas por tantos problemas eu fiz da seguinte forma, existe dois tipos de transmissão, TCP e UDP A diferença básica entre os dois é que TCP você precisa estar conectado ao host para passar dados, e você consegue ficar sabendo se o Host recebeu os dados por erros... Já UDP você não fica conectado ao Host, você pode enviar os dados sem problemas, sem erros, porém não consegue ficar sabendo se o Host recebeu, a não ser que você faça um Callback, mas por padrão você não fica sabendo... Callback seria uma resposta a mensagem exemplo O Cliente envia o comando "Olá" O Servidor retorna "Recebi: Olá" Então pra sanar todos os problemas, eu fiz da seguinte forma, usei TCP e UDP, o TCP apenas pra saber que está conectado, e UDP pra passar os dados... UDP da mais trabalho ainda mais fazendo dessa forma, mas nunca tive problemas com isso, é um sistema que roda em uma lan house faz uns 8 anos e nunca tive problemas... abraço

Opa De qualquer forma fiz um exemplo, está bem simples mas acho que da pra você entender... Download Senha: scriptbrasil abraço

opa ShellListview é muito pesado pra você nesse sentido, ele cria várias coisas desnecessárias, como ishellfolder, ishellenumeration, etc... ShellListview nada mais é que uma ListView com suporte a Shell então se eu fosse você eu faria o seguinte, use um listview, enumere as imagens da pasta que deseja em uma stringlist por exemplo e da um loop nessa stringlist adicionando os items na listview, voce pode usar o icone que desejar ou puxar o original, vai ficar muito mais leve e funcional... Depois pra fazer aparecer num TImage é só usar os eventos do ListView do tipo onItemChange não me recordo direito, estou sem o Delphi aqui, e nesse evento você da um LoadFromFile no TImage puxando o caminho das fotos mais o nome da foto, ou fazer coisas do tipo, armazenar na tag do Item um Type com as informações que precisar... Se não tiver idéia de como fazer eu te posto um exemplo, só não fiz agora porque estou sem o Delphi aqui... abraço

Opa Delete(String, Inicio, Quantos caracteres a serem apagados); Então no seu caso seria: Delete(String, 1, 3); Onde 1 indica que começa da primeira letra, o 3 é referente aos 3 caracteres que você quer apagar... abraço

Opa Quanto a parte do BD eu não sei te responder não, não cheguei a utilizar desta maneira... agora quanto a parte Não vai ser no setup que você vá proteger seu sistema, existem vários componentes que façam isso pra você, vários... Da uma olhada nesse site possui variados... abraço

Opa No Delphi 2006 esse set se encontra na Unit DB, tente adicionar DB ou DBTypes no Uses; TLocateOption = (loCaseInsensitive, loPartialKey); TLocateOptions = set of TLocateOption; abraço

Você irá encontrar em vários sites de vendas, procure no buscapé por exemplo, mas o oficial é este. abraço

Opa Não deu pra entender bem o que você quer fazer, se você por exemplo quer extrair algum .wav que esteja dentro de um .EXE basta utilizar editores PE, como exemplo o Resource Hacker... Leitura e exibição, como você diz? Já que arquivos .wav são tocados, você quer exibir o que de um arquivo .wav estilo um editor de som ou algo do tipo? abraço

Opa O jeito que você passou, não só mostra como acessar o registrocomo também alterar o que ele quer rs... abraço

Hmm deve ter como sim, repare que você pode alterar isto no Painel de Controle do Windows na categoria "Configurações regionais e de Idiomas" (Windows XP, 98 não lembro) e como o Windows sempre grava os dados no registro, então deve ter como sim só tem que descobrir em qual chave fica estas configurações, eu procurei aqui e não encontrei... Mas o ideal é que você faça isso somente no seu sistema, pois por qual o motivo que você gostaria de afetar o sistema todo? Se eu achar a chave eu posto aqui! abraço

Opa Quando você puxa a data do sistema sem formatá-la, ou seja, usando o FormatDateTime por exemplo, o Delphi irá pegar o formato através da variavél ShortDateFormat da Unit SysUtils. Então, na inicialização do seu sistema, pra ficar da maneira que você quer coloque: ShortDateFormat := 'dd/mm/yyyy'; Existe também o ShortTimeFormat que faz o mesmo só que para horas... Mas isso irá apenas afetar o seu sistema, não irá afetar as configurações regionais do usuário no Windows... Espero que seja isso que você queria... abraço

opa Você pode usar a propriedade TextWidth de um canvas, eu nunca usei fora de algum objeto, então fiz essa função mas acho que falta algo nela como liberar o canvas coisas do tipo, ela funciona mas não sei se está totalmente correta... Function GetTextWidth(const szText: String): Integer; var aCanvas: TCanvas; begin aCanvas := TCanvas.Create; aCanvas.Handle := GetWindowDC(GetDesktopWindow); Result := aCanvas.TextWidth(szText); aCanvas.Free; end; Pra usar, basta passar a String e ela te retornará o comprimento da String... Acho que jeito mais facil que usando o TextWidth do canvas não tenha mas como mencionei não sei se precisa liberar o canvas pra ficar completa esta função... abraço

Opa Como vem os dados para você, exemplo, você pega eles através de alguma função certo, se possível poste como você pega os dados Passando como você recupera os dados da porta USB, talvez pelo formato em que os dados são passados ou a maneira fica mais fácil de te ajudar! abraço

Opa Sem querer se intrometer mas assim, quanto a parte que você quer que a pessoa digite 14 digitos pra CPNJ, a propriedade que você está usando para recuperar quantos digitos estão no campo .Tag está incorreto, a propriedade Tag é somente para controle do programador, o ideal seria: if ((DBRadioGroupTipo.Value = 'F') or (DBRadioGroupTipo.Value = 'J')) then if (Length(DBEditCPF_CNPJ.Text) <> 11) then begin ShowMessage('CPF tem 11 Dígitos'); DBEditCPF_CNPJ.SetFocus; // posiciona o cursor Abort; // não grava e continua editando end; Ou seja, se o comprimento do texto, ou melhor, se a contagem de caracteres do campo DBEditCPF_CNPJ for diferente de 11 então ele da a mensagem e aborta... abraço

opa Que bom que você conseguiu.... Se eu entendi bem, seria mais ou menos assim Pra alterar o pixel da imagem é mesma coisa que você está fazendo pra pegar o Pixel, ai só passar um TColor... exemplo var RGB: TColor; begin RGB := $00FFFFFF; //Branco Image1.Canvas.Pixels[0,0] := RGB; RGB := $00000000; //Preto Image1.Canvas.Pixels[0,1] := RGB; Logo o Pixel X = 0 e Y = 0 vai ser branco e o Pixel X = 0 e Y = 1 vai ser preto... Pra transformar de TColor para Hexadecimal você pode usar a seguinte função function TColorToHex(Color : TColor) : string; begin Result := IntToHex(GetRValue(Color), 2) + IntToHex(GetGValue(Color), 2) + IntToHex(GetBValue(Color), 2); end; Pra usar serial var Hex: String; RGB: TColor; begin RGB := $00FFFFFF; //Branco Hex := TColorToHex(RGB); Pra transformar de Hex pra TColor function HexToTColor(sColor : string) : TColor; begin Result := RGB( StrToInt('$'+Copy(sColor, 1, 2)), StrToInt('$'+Copy(sColor, 3, 2)), StrToInt('$'+Copy(sColor, 5, 2)) ); end; Pra usar seria exemplo var Hex: String; RGB: TColor; begin RGB := $00FFFFFF; //Branco Hex := TColorToHex(RGB); RGB := HextoTColor(Hex); e por ai vai... Entendeu mais ou menos? abraço

Opa Está sim Micheus acontecendo este e vários problemas, inclusive está sendo discutido isso entre os administradores... O motivo maior da atualização, é que agora visitantes tem que digitar aquelas palavras de sistema anti-bot "Captcha" para evitar e diminuir os spams já que eles eram um grande número, nesta seção era poucos a maioria na seção links, mas em outras áreas do fórum chegava a ter uns 50 por dia rsr O negócio é esperar agora corrigirem! Quanto ao sistema de update vo testar ele aqui ai eu posto sobre! abraço

Opa está muito bom seu código Micheus, eu não testei mas olhando por cima está muito inteligente o sistema... Parabéns! abraços

Opa Da uma olhada se isto te ajuda - post abraço

Opa Eu deixo o Anchors padrão, que é True somente Left, Top os demais é False... Nunca tive este problema talvez seria por causa do Anchors? abraços