Selecionar a porta de impressão em tempo de execução

Delphi

25/03/2004

Preciso fazer um esquema onde o usuário possa digitar o endereço da porta da impressora. Eu tentei a rotina abaixo mas nao funcionou:

procedure TForm1.Button1Click(Sender: TObject);
begin
     Memo1.Lines.SaveToFile(´c:\porta_impressora.txt);
end;


procedure TForm1.bot_imprimirClick(Sender: TObject);

var
     imprimir  : TextFile;
     imprime  : string;
begin
     Memo1.Lines.LoadFromFile(´c:\porta_impressora.txt´);
     imprime:=Mem1.Lines.Lines;
     AssignFile(imprimir,´LPT1´);
     Rewrite(imprimir);
     Writeln(imprimir,´ IMPRESSÃO DE ALGUMA COISA´);
end.


da um erro de (Inconpatible types), de qualquer modo, dessa maneira é impossivel, se alguem souber outra forma.
Detalhe: Preciso que fica gravado o endereco da porta, para que nao seja necessario o usuario digitar novamente quando entra de novo no programa.

VALEU!!!

[b:5ccc1fb89a][color=red:5ccc1fb89a]Título editado pelo Moderador (AZ) - Removido: Maiúsculas[/color:5ccc1fb89a][/b:5ccc1fb89a]


Vispo

Vispo

Curtidas 0

Respostas

Sremulador

Sremulador

25/03/2004

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile(´c:\porta_impressora.txt);
end;


procedure TForm1.bot_imprimirClick(Sender: TObject);
var
imprimir : TextFile;
imprime, Porta : string;

begin
Porta:= botãoporta.caption;
Memo1.Lines.LoadFromFile(´c:\porta_impressora.txt´);
imprime:=Mem1.Lines.Lines;
AssignFile(imprimir, Porta);
Rewrite(imprimir);
Writeln(imprimir,´ IMPRESSÃO DE ALGUMA COISA´);
end.
:wink:


GOSTEI 0
POSTAR