Dll

[Guest Carlos Seiji]

criei uma dll para puxar as impressoras configurada no micro.

so que ela funciona apenas se for criado um programa (.exe) , mas preciso utilizar em uma pagina .asp e na pagina .asp ele não retorna nenhuma impressora.

abaixo vai o codigo que puxa as impressoras:

function TSelimpressora.impressora(Resultado: OleVariant): OleVariant;
var
I: integer;
begin
For I:= 1 to Printer.Printers.Count do
Begin
if Pos('LPT', printer.Printers.Strings[I-1]) > 0 Then
  Result := Result + 'LPT1'
Else if Pos('\\', printer.Printers.Strings[I-1]) > 0 Then
  Result := Result + Copy(printer.Printers.Strings[I-1],
Pos('\\', printer.Printers.Strings[I-1]),
length(printer.Printers.Strings[I-1]) -
Pos('\\', printer.Printers.Strings[I-1]) + 1)+';';
End;
Result := Result + 'teste';
end;

[Renato_agito10]

Amigo variavel não pode ser declarada em dll por isso não funciona....

[Guest Carlos Seiji]

putz, alguém respondeu a minha questao.....depois de varios foruns.....

pow..legal....

valeu pela dica....vou testar agora mesmo.

mas desde já agradeco pela informacao, estou a procura de uma solucao a meses.

[Guest Carlos Seiji]

infelizmente sem declarar a variavel o delphi não constroi a dll