Função só funciona numa posição
Vejam que interessante a função [color=blue:b74074499b]SWEDA_CapturarDispositivo(1,0,´´,0,15000); [/color:b74074499b] Tudo isso está no OnCreate do Form. Como está aí não funciona a função,
Agora se eu colocar assim, funciona. Lembrando que tudo isso está no OnCreate
Uso BDS 2007.
ECFOpenSerial(mnPorta,mnVelocidade,mnTimeout,mnLog,mnErro,´serial´ );
StrPCopy(Comando,´*46´);
if not MandaComando then
exit
else
begin
[color=red:b74074499b]SWEDA_CapturarDispositivo(1,0,´´,0,15000);[/color:b74074499b]
Arquivo_Mfd := TIniFile.Create(ExtractFilePath(Application.ExeName)+´SAC_GARBO.INI´);
dtIni := DateToStr(StartOfTheMonth(IncMonth(Date,-1)));
dtFim := DateToStr(EndOfTheMonth(IncMonth(Date,-1)));
Dt_Envio := FormatDateTime(´DD-MMM-YYYY´,Date);
Loja := IntToStr(PegaLoja);
Cx := PegaNumCaixa;
Agora se eu colocar assim, funciona. Lembrando que tudo isso está no OnCreate
[color=red:b74074499b]SWEDA_CapturarDispositivo(1,0,´´,0,15000);[/color:b74074499b]
ECFOpenSerial(mnPorta,mnVelocidade,mnTimeout,mnLog,mnErro,´serial´ );
StrPCopy(Comando,´*46´);
if not MandaComando then
exit
else
begin
Arquivo_Mfd := TIniFile.Create(ExtractFilePath(Application.ExeName)+´SAC_GARBO.INI´);
dtIni := DateToStr(StartOfTheMonth(IncMonth(Date,-1)));
dtFim := DateToStr(EndOfTheMonth(IncMonth(Date,-1)));
Dt_Envio := FormatDateTime(´DD-MMM-YYYY´,Date);
Loja := IntToStr(PegaLoja);
Cx := PegaNumCaixa;
Uso BDS 2007.
Paulo
Curtidas 0
Respostas
Paulo
25/08/2008
Descobri o problema. Eu deveria dar um ECFCloseSerial, pois a função só funciona com o ECF fechado. Valeu!!!
GOSTEI 0