F�rum Fun��o s� funciona numa posi��o #363200

25/08/2008

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,

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

Curtir t�pico

+ 0

Responder

Posts

26/08/2008

Paulo

Descobri o problema. Eu deveria dar um ECFCloseSerial, pois a fun��o s� funciona com o ECF fechado. Valeu!!!

Responder

Gostei + 0