Icon View Thread

The following is the text of the current message along with any replies.
Messages 1 to 3 of 3 total
Thread Exception while Tracing
Wed, Dec 31 2008 3:43 AMPermanent Link

DrCool


EInOutError with message 'I/O error 32' when enbaling the trace event. help please


procedure TDM.RemoteSessionRemoteTrace(Sender: TObject;
 TraceRecord: TTraceRecord);
var
 TempString: string;
 TraceLogFile: TextFile;
begin
 with TraceRecord do
    begin
    TempString:=PadRight(DateTimeToStr(DateTime),24,' ');
    case EventType of
       teConnect:
          TempString:=TempString+' '+PadRight('Connect',10,' ')+
                                 ' '+PadRight(IntToStr(ElapsedTime)+'msecs',16,' ');
       teReconnect:
          TempString:=TempString+' '+PadRight('Re-connect',10,' ')+
                                 ' '+PadRight(IntToStr(ElapsedTime)+'msecs',16,' ');
       teDisconnect:
          TempString:=TempString+' '+PadRight('Disconnect',10,' ')+
                                 ' '+PadRight(IntToStr(ElapsedTime)+'msecs',16,' ');
       teRequest:
          TempString:=TempString+' '+PadRight('Request',10,' ')+
                                 ' '+PadRight(IntToStr(ElapsedTime)+'msecs',16,' ')+
                                 ' '+PadRight(RemoteRequestName,30,' ')+
                                 ' '+PadRight(IntToStr(RemoteRequestSize)+' bytes',16,' ');
       teReply:
          TempString:=TempString+' '+PadRight('Reply',10,' ')+
                                 ' '+PadRight(IntToStr(ElapsedTime)+'msecs',16,' ')+
                                 ' '+PadRight(RemoteReplyResultName,30,' ')+
                                 ' '+PadRight(IntToStr(RemoteReplySize)+'bytes',16,' ');
       end;
    end;
   AssignFile(TraceLogFile, 'e:\log.txt');
   ReWrite(TraceLogFile);
 Try
   WriteLn(TraceLogFile,TempString);
 except
    On E : EInOutError do
      ShowMessage('IO error : '+E.Message);
    On E : EDivByZero do
      ShowMessage('Div by zero error : '+E.Message);
    else
      ShowMessage('Unknown error');
  end;
  CloseFile(TraceLogFile);
  Reset(TraceLogFile);
end;
Fri, Jan 2 2009 1:17 PMPermanent Link

Tim Young [Elevate Software]

Elevate Software, Inc.

Avatar

Email timyoung@elevatesoft.com


<< EInOutError with message 'I/O error 32' when enbaling the trace event.
help please >>

That's an error on the writing to the TextFile object in Delphi, and error
32 is a sharing violation.  Are you using more than one instance of the
application trying to write to the same text file ?

--
Tim Young
Elevate Software
www.elevatesoft.com

Sat, Jan 3 2009 12:42 AMPermanent Link

DrCool
{ Are you using more than one instance of the
application trying to write to the same text file ? }


i simple create a datamodule form, place the DBISAMSESSION and DBISAM Server control there, and set their required properties which i saw
from you CSTEST application.

do you have any CS application for DBISAM in which all necessary event need for Client Server is fired.

sorry bad english.

waiting your reply,

regards
Image