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
