Modelo de gráfico em CHART
28/09/2004
0
Aí pessoal, estou precisando desenvolver um gráfico de tráfego de pacotes.
Eu tenho um arquivo de texto chamado trafego.txt onde nele é gravado a taxa de transeferencia de um computador de 3 em 3 minutos.
o conteudo do arquivo é:
[b:2464c1b182]Primeira Coluna[/b:2464c1b182] Download
[b:2464c1b182]Segunda Coluna[/b:2464c1b182] Upload
[b:2464c1b182]Terceira Coluna[/b:2464c1b182] IP
[b:2464c1b182]Quarta Coluna[/b:2464c1b182] Ultimo horario gravado (Esse arquivo e atualizado de 3 em 3 minutos)
Queria fazer algo do tipo:
[img:2464c1b182]http://200.195.24.47/grafico.gif[/img:2464c1b182]
Se alguem puder postar um código pra me ajudar eu agradeço. Pois já tentei de tudo, olhei os Demos do Delphi e não entendi!
Abraços
Eu tenho um arquivo de texto chamado trafego.txt onde nele é gravado a taxa de transeferencia de um computador de 3 em 3 minutos.
o conteudo do arquivo é:
546665454|55487866|10.10.1.35|11:26:00
[b:2464c1b182]Primeira Coluna[/b:2464c1b182] Download
[b:2464c1b182]Segunda Coluna[/b:2464c1b182] Upload
[b:2464c1b182]Terceira Coluna[/b:2464c1b182] IP
[b:2464c1b182]Quarta Coluna[/b:2464c1b182] Ultimo horario gravado (Esse arquivo e atualizado de 3 em 3 minutos)
Queria fazer algo do tipo:
[img:2464c1b182]http://200.195.24.47/grafico.gif[/img:2464c1b182]
Se alguem puder postar um código pra me ajudar eu agradeço. Pois já tentei de tudo, olhei os Demos do Delphi e não entendi!
Abraços
Redoctober
Curtir tópico
+ 0
Responder
Posts
28/09/2004
Aroldo Zanela
Colega,
Por favor, coloque um fragmento maior do arquivo para que possamos fazer algumas simulações.
Exemplo que utiliza o modelo postado acima:
Por favor, coloque um fragmento maior do arquivo para que possamos fazer algumas simulações.
Exemplo que utiliza o modelo postado acima:
Cancelar := false;
Series1.Clear;
Series1.FillSampleValues(300);
tbCadastro.First;
while (not tbCadastro.Eof) and (not Cancelar) do
begin
With Series1 do
begin
if tbCadastroVALOR.Value>0 then
begin
Delete(0);
AddXY(tbCadastroREF_ID.AsInteger,tbCadastroVALOR.AsInteger,´´,clTeeColor);
Application.ProcessMessages;
end;
end;
tbCadastro.Next;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)
