OnChatServerStart
------------------------
begin
If FolderExists('D:\Program Files\MyChatServerFree\PrivateLogs')=False
Then CreateFolder('D:\Program Files\MyChatServerFree\PrivateLogs');
end.
OnPrivateMessage
------------------------
var i, j: Integer;
Hour, Min, Sec, mSec :Word;
Year, Month, Day :Word;
str, strTime, strDir, strFile: String;
begin
strDir:='D:\Program Files\MyChatServerFree\PrivateLogs\';
str:=''; strFile:=''; i:=0; j:=0;
GetSystemTime(Hour, Min, Sec, mSec);
GetSystemDate(Year, Month, Day);
strTime:=IntToStr(Hour)+':'+IntToStr(Min)+':'+IntToStr(Sec);
str:=mGetLastPrivateMessage(i,j);
If i<j then strFile:=IntToStr(Day)+IntToStr(Month)+IntToStr(Year)+'_'+mGetNickFromUIN(i)+'-'+mGetNickFromUIN(j)+'.txt'
else strFile:=IntToStr(Day)+IntToStr(Month)+IntToStr(Year)+'_'+mGetNickFromUIN(j)+'-'+mGetNickFromUIN(i)+'.txt';
AddLineToFile(strDir+strFile,strTime+' '+mGetNickFromUIN(i)+'...'+mGetNickFromUIN(j)+'->'+str);
end.
Логи создаются каждый день один для двух пользователей которые переписываются.
походу mGetLastPrivateMessage(i,j) возвращает значения первого и второго пользователя, хотя в описании это не указанно.
Немного громоздка, так как функций намного меньше чем в Delphi ну это уже не важно, главное результат