Fórum DDE Client #331481
18/10/2006
0
estou precisando pegar o seguinte valor =GOL|COT!TNLP4.ESPEC
no excel funciona apenas colocando isso numa cedula, como faço isso com o Tddeclientconv e o TDdeClientItem?
estou fazendo da seguinte frma
DdeClientItem1.DdeConv := DdeClientConv1;
DdeClientConv1.DdeService := ´GOL´;
DdeClientConv1.DdeTopic := ´COT´;
DdeClientItem1.DdeItem := ´TNLP4.ESPEC´;
DdeClientConv1.SetLink(´GOL´,´COT!TNLP4.ESPEC´);
DdeClientConv1.OpenLink;
procedure TForm1.DdeClientItem1Change(Sender: TObject);
begin
Edit1.Text := DdeClientItem1.Text;
Memo1.Lines.Add(DdeClientItem1.Lines.Text)
end;
no excel funciona apenas colocando isso numa cedula, como faço isso com o Tddeclientconv e o TDdeClientItem?
estou fazendo da seguinte frma
DdeClientItem1.DdeConv := DdeClientConv1;
DdeClientConv1.DdeService := ´GOL´;
DdeClientConv1.DdeTopic := ´COT´;
DdeClientItem1.DdeItem := ´TNLP4.ESPEC´;
DdeClientConv1.SetLink(´GOL´,´COT!TNLP4.ESPEC´);
DdeClientConv1.OpenLink;
procedure TForm1.DdeClientItem1Change(Sender: TObject);
begin
Edit1.Text := DdeClientItem1.Text;
Memo1.Lines.Add(DdeClientItem1.Lines.Text)
end;
Nightshade
Curtir tópico
+ 0
Responder
Posts
18/10/2006
Nightshade
procedure TForm1.Timer1Timer(Sender: TObject);
begin
DdeClientItem1.DdeConv := DdeClientConv1;
DdeClientConv1.DdeService := ´GOL´;
DdeClientConv1.DdeTopic := ´COT´;
DdeClientItem1.DdeItem := ´PETR4.ULT´;
DdeClientItem2.DdeItem := ´PETR4.MAX´;
DdeClientConv1.OpenLink;
end;
procedure TForm1.DdeClientItem1Change(Sender: TObject);
begin
Edit1.Text := DdeClientItem1.Text;
end;
procedure TForm1.DdeClientItem2Change(Sender: TObject);
begin
Edit2.Text := DdeClientItem2.Text;
end;
SOLUÇÃO!!!
begin
DdeClientItem1.DdeConv := DdeClientConv1;
DdeClientConv1.DdeService := ´GOL´;
DdeClientConv1.DdeTopic := ´COT´;
DdeClientItem1.DdeItem := ´PETR4.ULT´;
DdeClientItem2.DdeItem := ´PETR4.MAX´;
DdeClientConv1.OpenLink;
end;
procedure TForm1.DdeClientItem1Change(Sender: TObject);
begin
Edit1.Text := DdeClientItem1.Text;
end;
procedure TForm1.DdeClientItem2Change(Sender: TObject);
begin
Edit2.Text := DdeClientItem2.Text;
end;
SOLUÇÃO!!!
Responder
Gostei + 0
21/05/2012
Lucas Fernando
Olá, estou tentando fazer a mesma coisa que você mas não estou conseguindo...
Meu link DDE é da TraderGrafico, estou começando a achar que o problema é o link, pois nada do que faço consegue pegar a cotação.
Este serviço seu GOL, seria o serviço da corretora ?
Pode me ajudar ?
Valeu
Meu link DDE é da TraderGrafico, estou começando a achar que o problema é o link, pois nada do que faço consegue pegar a cotação.
Este serviço seu GOL, seria o serviço da corretora ?
Pode me ajudar ?
Valeu
procedure TForm1.Timer1Timer(Sender: TObject);
begin
DdeClientItem1.DdeConv := DdeClientConv1;
DdeClientConv1.DdeService := ´GOL´;
DdeClientConv1.DdeTopic := ´COT´;
DdeClientItem1.DdeItem := ´PETR4.ULT´;
DdeClientItem2.DdeItem := ´PETR4.MAX´;
DdeClientConv1.OpenLink;
end;
procedure TForm1.DdeClientItem1Change(Sender: TObject);
begin
Edit1.Text := DdeClientItem1.Text;
end;
procedure TForm1.DdeClientItem2Change(Sender: TObject);
begin
Edit2.Text := DdeClientItem2.Text;
end;
SOLUÇÃO!!!
begin
DdeClientItem1.DdeConv := DdeClientConv1;
DdeClientConv1.DdeService := ´GOL´;
DdeClientConv1.DdeTopic := ´COT´;
DdeClientItem1.DdeItem := ´PETR4.ULT´;
DdeClientItem2.DdeItem := ´PETR4.MAX´;
DdeClientConv1.OpenLink;
end;
procedure TForm1.DdeClientItem1Change(Sender: TObject);
begin
Edit1.Text := DdeClientItem1.Text;
end;
procedure TForm1.DdeClientItem2Change(Sender: TObject);
begin
Edit2.Text := DdeClientItem2.Text;
end;
SOLUÇÃO!!!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)