Fórum de Suporte Digivoice
Você não está logado.
Srs,
Estou usando a seguinte linha abaixo para me falar uma mensagem caso o codigo esteja errado.
procedure TForm1.VerificaCodigo_Senha(Port:Integer;xCodigo,xSenha:String);
begin
If Codigo_e_Senha='invalido' then
begin
CodUsu := '';
SenhaUSU := '';
VLib_1.PlayListClear(Port);
VLib_1.PlayListAdd(Port,ptFile,Diretorio+'F005.wav','F005.wav', 0);
VLib_1.PlayListAdd(Port,ptFile,Diretorio+'F003.wav','F003.wav', 2);
ret := VLib_1.PlayList(Port,'');
Estado[Port] := CODIGO1;
end
end;
A placa só está falando a mensagem F003.
Porque isto ocorre ?
Obrigado pelas colaborações anteriormente enviadas.
Att. Luciano
Offline