Fórum Selecionar a porta de impressão em tempo de execução #222239
25/03/2004
0
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:
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]
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
Curtir tópico
+ 0
Responder
Posts
25/03/2004
Sremulador
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:
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:
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)