Olá amigos...
tenho a função abaixo cujo destino é verificar se o dispositivo
conectado a vArq
( 'COM1', 'COM2', 'LPT1', 'LPT2', '\\SERVIDOR\IMPRESSORA' )
ou 'C:\ARQUIVO.TXT'
existe e está preparado para ser usado, ou seja, ligado.
infelizmente ela não está se comportando como deve, ou seja, não
está retornando FALSE
quando o dispositivo conectado está desligado.
Será que alguém mais poderia dar uma olhadinha e testar pra ver
porque não está funcionando.
Detalhe: uso D5/Upd#1 em WinXP/98. e vou portar para D7 em breve...
Obrigado pela atenção
------------------------------------------------
function VerPorta( vArq: String ): Boolean;
var
Teste: TextFile;
sMsg: String;
begin
AssignFile( Teste, vArq );
ReWrite( Teste );
{$I-}
WriteLn( Teste, #15+'.' );
{$I+}
Result := False;
Case IOResult of
2: sMsg := 'Arquivo Não Encontrado';
3: sMsg := 'Nome de Arquivo Inválido';
4: sMsg := 'Muitos Arquivos Abertos';
5: sMsg := 'Acesso Negado';
100: sMsg := 'Final de Arquivo Encontrado';
101: sMsg := 'Disco Cheio';
106: sMsg := 'Entrada Invalida';
Else
if IOResult <> 0 then
sMsg := 'Erro não documentado. Informe o Suporte'
else begin
Result := True;
end;
End;
if not Result then
ShowMessage( 'Erro de Impressão
em "'+vArq+'"'+#13+sMsg )
else
CloseFile( Teste );
end;
------------------------------------------------
Sérgio A Souza
[EMAIL PROTECTED] -> email preferencial.
[EMAIL PROTECTED]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
