Buscar por:

Função para gerar log de erros

Código

Function SaveLogError(Const AUnitError, ASimbolError, ADescription, ATypeError, ASQLError, AInsError: string): integer; 

var 

  VMemory: TMemoryStatus; 

  VLogFile: TextFile; 

  VLogFileName: string; 

  vcount : Integer; 

begin 

  VMemory.dwLength := SizeOf(TMemoryStatus); 

  GlobalMemoryStatus(VMemory); 

  VLogFileName := format('%spdferror.log',[GPathFile]); 

  try 

  AssignFile(VLogFile,VLogFileName); 

  if FileExists(VLogFileName) then 

  begin 

  Append(VLogFile); 

  Writeln(VLogFile,''); 

Writeln(VLogFile,'mensagem'); 

  Writeln(VLogFile,''); 

  end 

  else 

  begin 

  Rewrite(VLogFile); 

  Writeln(VLogFile,'CABTEC - Soluções em códigos de barras'); 

  Writeln(VLogFile,format('Fone %s - E-Mail: cabtec@cabtec.com.br','(0xx31)3295-0555'])); 

  Writeln(VLogFile,'Rua Araguari, nº 358/16º andar - Barro Preto'); 

  Writeln(VLogFile,'20190-110 - Belo Horizonte - MG'); 

Writeln(VLogFile,'mensagem'); 

  Writeln(VLogFile,''); 

  end; 

  Writeln(VLogFile,format('DATE/TIME............: %s',[DateTimeToStr(Now)])); 

  Writeln(VLogFile,format('Unit Error...........: %s',[AUnitError])); 

  Writeln(VLogFile,format('Call Symbol..........: %s',[ASimbolError])); 

  Writeln(VLogFile,format('Error type...........: %s',[ATypeError])); 

  Writeln(VLogFile,format('Description..........: %s',[ADescription])); 

  Writeln(VLogFile,format('SQL Error............: %s',[ASQLError])); 

  Writeln(VLogFile,format('Instruction error....: %s',[AInsError])); 

  Writeln(VLogFile,''); 

  Writeln(VLogFile,format('Memory free..........: %.0f bytes',[(VMemory.dwAvailPhys / 1024)])); // bytes livres de memória física 

  Writeln(VLogFile,format('Total PageFile.......: %.0f 

bytes',[(VMemory.dwTotalPageFile / 1024)])); // bytes livres de paginação de arquivo // bytes de paginação de arquivo 

  Writeln(VLogFile,format('Avail PageFile.......: %.0f 

bytes',[(VMemory.dwAvailPageFile / 1024)])); // bytes em uso de espaço de endereço 

  Writeln(VLogFile,format('Total Virtual .......: %.0f 

bytes',[(VMemory.dwTotalVirtual / 1024)])); 

  Writeln(VLogFile,format('Avail virtual free...: %.0f 

bytes',[(VMemory.dwAvailVirtual / 1024)])); // bytes livres 

  CloseFile(VLogFile); 

  result := IOResult; 

  except 

  result := IOResult; 

  result := -1; 

  end; 

end; Use assim:

try 

Post; 

result := True; 

except 

on E: Exception do 

begin 

SaveLogError('Unit_nota','function TForm_Nota.SetSaveItensData: boolean', E.Message, E.ClassName, '', 'Post'); 

Application.MessageBox('Ocorreu um erro ao gravar os dados na tabela de ITENS!',CCAPTIONAPPLICATIONTITLE,mb_Ok + mb_IconStop + mb_DefButton1 + mb_applmodal); 

Cancel; 

result := False; 

break; 

end; 

end;