[delphi-br] Ajuda como recuperar TObject adicionado com AddObject do TStringList

[Thiago Filiano]

Senhores,

Estou tentando recuperar a Porta das impressoras instaladas em minha máquina, e 
dando uma olhada na unit Printers, precisamente a função GetPrinters da classe 
TPrinter, e verifiquei que em um determinado momento no FPrinters (TStringList) 
essa função atribui alguns valores da seguinte forma:
FPrinters.AddObject(Format(SDeviceOnPort, [pPrinterName, Port]), 
TPrinterDevice.Create(nil, pPrinterName, Port));

Estou tentando recuperar esses valores, mas não estou obtendo sucesso.
A base para recuperar os valores que tenho é:

Printer.Printers.Objects[1], mas não sei como fazer o tratamento.

Agradeço toda e qualquer ajuda.


[]'s
Thiago Filiano


[As partes desta mensagem que não continham texto foram removidas]

RE: [delphi-br] Ajuda como recuperar TObject adicionado com AddObject do TStringList

[Rubem Nascimento da Rocha]

Ora, é simples! Se vc olhar _com atenção_ a linha de código que adiciona as 
impressoras no campo FPrinters, vai ver que ele insere instâncias do objeto 
TPrinterDevice. Sendo assim, é só fazer um typecast (conversão de tipo) para 
tratar o dado, assim:
 
TPrinterDevice(Printer.Printers.Objects[0])
 
Agora, precisa verificar se essa classe está definida na seção interface ou 
implementation da unit Printers. Se estiver definida na seção implementation, 
você vai ter que definir essa classe no seu código para poder fazer o typecast.
 
A dica pra pescar o peixe foi passada. Agora, pesque-o!
 
Boa sorte.
Sds.


 To: delphi-br@yahoogrupos.com.br
 From: thi...@americasoft.com.br
 Date: Fri, 30 Jan 2009 11:19:44 -0200
 Subject: [delphi-br] Ajuda como recuperar TObject adicionado com AddObject do 
 TStringList


 Senhores,



 Estou tentando recuperar a Porta das impressoras instaladas em minha máquina, 
 e dando uma olhada na unit Printers, precisamente a função GetPrinters da 
 classe TPrinter, e verifiquei que em um determinado momento no FPrinters 
 (TStringList) essa função atribui alguns valores da seguinte forma:

 FPrinters.AddObject(Format(SDeviceOnPort, [pPrinterName, Port]), 
 TPrinterDevice.Create(nil, pPrinterName, Port));



 Estou tentando recuperar esses valores, mas não estou obtendo sucesso.

 A base para recuperar os valores que tenho é:



 Printer.Printers.Objects[1], mas não sei como fazer o tratamento.



 Agradeço toda e qualquer ajuda.



 []'s

 Thiago Filiano
_
Windows Live Messenger. O melhor em multitarefa.
http://www.microsoft.com/windows/windowslive/messenger.aspx