procedure TForm1.btn1Click(Sender: TObject);
begin
CodeSite.Send('第一条信息');
CodeSite.Send('form',Form1);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
Dest: TCodeSiteDestination;
begin
Dest := TCodeSiteDestination.Create( Self );
//开启文件日志
Dest.LogFile.Active := True;
Dest.LogFile.FileName := 'MyFirstLog.csl';
Dest.LogFile.FilePath := 'c:\';
//开启动态日志监视
Dest.Viewer.Active := True; // Add this line
CodeSite.Destination := Dest;
end;
begin
CodeSite.Send('第一条信息');
CodeSite.Send('form',Form1);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
Dest: TCodeSiteDestination;
begin
Dest := TCodeSiteDestination.Create( Self );
//开启文件日志
Dest.LogFile.Active := True;
Dest.LogFile.FileName := 'MyFirstLog.csl';
Dest.LogFile.FilePath := 'c:\';
//开启动态日志监视
Dest.Viewer.Active := True; // Add this line
CodeSite.Destination := Dest;
end;