Jhonas

tente esse para o gmail http://stackoverflow.com/questions/1360719...-with-indy-imap abraço

tem um exemplo nesse link http://balaiotecnologico.blogspot.com.br/2...-uma-caixa.html abraço

ou é isso, ou voce tem que ficar tentando até encontrar alguma solução ou quem sabe algum outro colega do forum possa ajudá-lo abraço

não tenho certeza se isso é limitação de versão, pelo menos na versão Enterprise não acontece isso refaça o seu código do zero baseando-se no exemplo do link que te passei... ou veja algum tutorial sobre a criação de componentes no delphi https://docs.google.com/document/pub?id=1pe...ve8FvJk_b4iOLI0 abraço

function StringBetween(const Str, Str1, Str2: String): String; begin Result := Copy(Str, Pos(Str1, Str) + Length(Str1), Pos(Str2, Copy(Str, Pos(Str1, Str) + Length(Str1), Length(Str))) - 1); end; voce esta passando 3 substrings em sua fnção como parametros uso correto da function Copy function Copy(S; Index, Count: Integer): string; agora vamos analizar somente esta parte do codigo Copy(Str, Pos(Str1, Str) + Length(Str1), imagine que para Pos(Str1, Str) foi encontrado o numero 10 e que para Length(Str1) foi encontrado o numero 15 então a posição inicial do index seria 25 e não 10 onde a posição inicial foi encontrada é exatamente assim que voce quer ? abraço

experimente fazer um redirecionamento de impressora http://www.codigofonte.net/scripts/delphi/...8_netmapprinter abraço

como voce não especificou qual o erro que causa incompatibilidade, de maneira geral é causada por uma versão incompativel dos componente JEDI com o delphi ... a versão do JEDI 3.33 corrigiu esse tipo de bug. como na versão mais recente tem alguns recursos a mais e correções de versões anteriores, acho que não deve dar problemas, mas se der, basta trocar o componente QR e copiar todos os outros componentes e o codigo. http://www.filecrop.com/Quickreport-5.02.html abraço

veja a definição de fonte nesses QRLabels ... eu utilizo fontes monoespaçadas sem problemas no QR 5.02 ( pode ser bug de versão ) abraço

use a fonte CourierNew, ela tem os caracteres com o mesmo tamanho deixe todos os componente do QR com essa fonte abraço

voce vai precisar do componente TComport http://www.google.com.br/search?q=comport+...c.1.U1d3P3vPp04 veja tambem no forum http://scriptbrasil.com.br/forum/index.php...ghlite=tcomport abraço

veja se voce colocou a porta como exceção do firewall

veja que para o windows 7 é dessa forma http://www.colorconsole.de/cmd/en/Windows_7/netsh.htm amigo, voce vai ter que fazer tentativa e erro para descobrir como funciona abraço

uma possivel solução http://www.colorconsole.de/cmd/pt/Windows_.../add/v4tov4.htm abraço

ok.. vou colocar o tópico como resolvido abraço

legal ... voce conseguiu fazer com que o proximo video da lista fosse executado sem voce clicar nele ?

isso está correto, é assim mesmo ... não importa quando tempo demore o texto para aparecer. O que importa é que a informação que voce precisa, vai ser mostrada no Memo e o valor de &et vai estar sempre correto no tempo de exibição atual do video. basta testar o valor de tempo final de &et com o valor inicial do tempo de &len para poder mudar para o proximo video da lista abraço

no teste que fiz aqui, não demora nada Obs: mude a qualidade do video para 240, e veja como fica .... outra coisa: o texto da URL no Memo aparece de tempos em tempos, mas isso não influi na exibição do video abraço

não testei o componente, somente te informei porque está em ingles, qual o uso desse componente, que diz que ele serve para redirecionar as portas .... o que voce relata, acho que tem haver com o Thread, parece que cada instancia deve estar rodando em uma Thread por isso mencionei o codigo do button2 do link procedure TForm1.Button2Click(Sender: TObject); var I: Integer; Thread: TIdMappedPortThread; begin with IdMappedPortTCP1.Threads.LockList do try for I := 0 to Count-1 do begin Thread := TIdMappedPortThread(Items[I]); Thread.Connection.Disconnect; Thread.OutboundClient.Disconnect; end; finally IdMappedPortTCP1.Threads.UnlockList; end; se tivesse um help para ler, eu poderia ajuda-lo de uma melhor forma OBS: vou dar uma olhada no seu projeto, mas sem compromisso ... ok ? pois estou trabalhando em um projeto para melhorar a resposta ( velocidade ) de um servidor de dados. abraço

Estou com dificuldade pra pegar a parte inteira. veja esse exemplo: procedure TForm1.Button1Click(Sender: TObject); var s : string; num : integer; begin s:= '&et=12.149'; Edit2.Text:=Copy(s,pos('=',s)+1,pos('.',s)-1); end; o conteudo do Edit2.Text será = '12.149' entretanto voce deve observar que o ponto decimal é um caracter, o que pode ser comprovado por isso procedure TForm1.Button1Click(Sender: TObject); var s : string; num : integer; begin s:= '&et=12.149'; Edit2.Text:=floattostr(trunc(strtofloat(Copy(s,pos('=',s)+1,pos('.',s)-1)))); end; Dica: obtido o valor em caracter '12.149' voce deve transformar o ponto decimal em virgula, para transformar de caracter para valor real, para depois retirar a parte inteira do numero usando a função trunc do delphi ========================================================================= caso não tenha conseguido, essa seria uma das maneiras de fazer isso: procedure TForm1.Button1Click(Sender: TObject); var s : string; num : integer; begin s:= '&et=12.149'; s:= StringReplace(s,'.',',',[rfReplaceAll]); s:= Copy(s,pos('=',s)+1,10); num := trunc(strtofloat(s)); Edit2.Text:= inttostr(num); end; outra forma de fazer isso procedure TForm1.Button1Click(Sender: TObject); var s : string; num : integer; begin s:= '&et=12.149'; Edit2.Text:=floattostr(trunc(strtofloat(StringReplace(Copy(s,pos('=',s)+1,pos('.',s)-1),'.',',',[rfReplaceAll])))); end; abraço

vai não, voce vai ver mudar assim no edit &et=0.0112 &et=1.0233 &et=12.149 &et=70.745 &et=120.06 quando a parte inteira de &et=70.745 for igual a parte inteira de &len=70.800 então chegou no fim do video o valor de &len= não vai ficar mudando o que vai te interessar é a parte inteira do numero voce vai ter que extrair a parte numerica da string ( somente o valor será usado para calculo ) abraço

faça assim: if pos('&len=',MemoURLs.Lines.Text )>0 then Edit2.Text := trim(copy(MemoURLs.Lines.Text,pos('&len=',MemoURLs.Lines.Text),10)); if pos('&et=',MemoURLs.Lines.Text )>0 then Edit1.Text := trim(copy(MemoURLs.Lines.Text,pos('&et=',MemoURLs.Lines.Text),10)); esse tempo é aleatório dependendo de onde voce clica com o mouse na barra de progresso do video, mas o valor final do &et sempre será o valor final de &len ou muito proximo ( nos decimos de segundo ). veja o que consegue fazer abraço

conseguiu usar o TFlashViewer ? ok.. entendi como usar o id para pegar o arquivo xml e obter o valor em segundos do video, mas não seria nada pratico usar dessa maneira Fazendo uma adaptação desse exemplo http://www.webcheats.com.br/forum/delphi-v...do-youtube.html mais esse, voce consegue cadastrar uma lista de videos depois reproduzi-los em seguencia http://www.delphiflash.com/download/demo/youtube/youtube.zip voce vai precisar dos valores &len= ( seria o valor em segundos do video ) e do valor &et= ( tempo dado no decorrer do video ) que esta no texto da URL do video abraço

tente procurar por algum tutorial na net em um exemplo de uso nesse link http://www.borlandtalk.com/indy-9-ssl-bug-vt45400.html veja o codigo do button2 abraço

esse link não esta funcionando http://gdata.youtube.com/feeds/api/videos/%22id com relação ao componente TFlashViewer, ele tem as propriedades FlashViewer.TotalFrames; FlashViewer.CurrentFrame; que poderiam ser usados para controlar o tempo do video, mas na versão trial que peguei não funciona a jogada seria então obter esses valores do texto da URL, fazer comparação dos valores para testar o fim do video, e depois utilizar a simulação de clique do mouse no proximo video para executa-lo automaticamente. abraço

se voce leu os topicos, vai perceber que voce vai usar os componentes do pacote Indy10 para envio de emails ... tem varios codigos para envio de emails no forum abraço