Сделать программу Logger

[rainbow]

У меня есть такая задача, сделать программу Logger, сбросить его в локальную сеть с доменом, и если кто нибудь его запустит при это ничего не должно быть, но программа должна сохранить Log в понятный формат, который можно открыть например блокнотом, Формат данных - log с IP-адресом и именем пользователя, запустившего программу.

[Iron Monk]

program Logger;

//{$APPTYPE CONSOLE}

uses
Windows, SysUtils, Classes, Winsock;

function GetCurrentUserName: string;
const
cnMaxUserNameLen = 254;
var
sUserName: string;
dwUserNameLen: DWORD;
begin
dwUserNameLen := cnMaxUserNameLen - 1;
SetLength(sUserName, cnMaxUserNameLen);
GetUserName(PChar(sUserName), dwUserNameLen);
SetLength(sUserName, dwUserNameLen);
Result := sUserName;
end;

var
wVerReq: WORD;
wsaData: TWSAData;
ip: pchar;
host: PHostEnt;
c: array[0..128] of char;
log: TStringList;
begin
Log:=TStringList.Create;
wVerReq := MAKEWORD(1, 1);
WSAStartup(wVerReq, wsaData);
GetHostName(@c, 128);
host := GetHostByName(@c);
ip := iNet_ntoa(PInAddr(host^.h_addr_list ^)^);
log.Add(ip+' '+GetCurrentUserName);
log.SaveToFile('C:\log.txt');
log.Destroy;
WSACleanup;
end.

[rainbow]

Спасибо, но log.txt сохраниться на диске C: у пользователя, который её запустил, а надо, чтобы он сохранялся в папке с программой.
Поэтому стороку

log.SaveToFile('C:\log.txt');

Пришлось переделать на

log.SaveToFile('log.txt');

Проблема в том, что он записывает имя пользователя каждый раз поверх предыдущего, лог содержит данные только о последнем пользователе, который запускал программу.

[ToLeG]

Сообщение от rainbow

Проблема в том, что он записывает имя пользователя каждый раз поверх предыдущего, лог содержит данные только о последнем пользователе, который запускал программу.

Попробуй при запуске куданибудь читать лог, например в мемо, а потом добавлять новые данные и сохранять, для удобства можно отделять пунктирами и датой, что бы еще знать во сколько ее запустили))))

Код:

procedure TForm1.FormCreate(Sender: TObject);
var mem:tmemo;
begin
mem:=tmemo.Create(self);
mem.Top:=10;
mem.Left:=10;
mem.Height:=10;
mem.Width:=10;
mem.WordWrap:=false;// это что бы буквы НЕ вереносились на сл. строчку (только вот точно не помню, что должно стоять true или false =) )
mem.Visible:=false;
tcontrol(mem).Parent:=form1;
mem.Lines.LoadFromFile('log.txt');
mem.lines.add('-----' + sysutils.datetostr(now) + ' ' + sysutils.timetostr(now) + '-----');
mem.lines.add(...);//сдесь добавь свои переменные с айпишником и именем пользователя.
mem.Lines.SaveToFile('log.txt');
end;

вроде все))

[rainbow]

ToLeg, спасибо, сейчас попробую.
В принципе можно через Memo.
Только как это реализовать в программе написаной выше?
Проще наверное сделать, чтобы программа каждый раз открывала log.txt для редактирования, добавляла нужную строку, и закрывала его.

[ToLeG]

Сообщение от rainbow

Проще наверное сделать, чтобы программа каждый раз открывала log.txt для редактирования, добавляла нужную строку, и закрывала его.

В принципе, тот код который я написал именно это и делает))) Открывает лог, добавляет новые данные и сохраняет)))

Сообщение от rainbow

В принципе можно через Memo.
Только как это реализовать в программе написаной выше?

код:

program Logger;

{$APPTYPE CONSOLE}

uses
Windows, SysUtils, Classes, Winsock;

function GetCurrentUserName: string;
const
cnMaxUserNameLen = 254;
var
sUserName: string;
dwUserNameLen: DWORD;
begin
dwUserNameLen := cnMaxUserNameLen - 1;
SetLength(sUserName, cnMaxUserNameLen);
GetUserName(PChar(sUserName), dwUserNameLen);
SetLength(sUserName, dwUserNameLen);
Result := sUserName;
end;

function GetLocalIP: String;
const WSVer = $101;
var
wsaData: TWSAData;
P: PHostEnt;
Buf: array [0..127] of Char;
begin
Result := '';
if WSAStartup(WSVer, wsaData) = 0 then begin
if GetHostName(@Buf, 128) = 0 then begin
P := GetHostByName(@Buf);
if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^ );
end;
WSACleanup;
end;
end;


var
log: TStringList;
begin
Log:=TStringList.Create;
if FileExists('log.txt') then
begin
log.LoadFromFile(log.txt');
log.Add('--------------' + sysutils.DateToStr(now) + ' ' + sysutils.TimeToStr(now) + '--------------' );
log.Add(GetLocalIP +' '+GetCurrentUserName);
log.SaveToFile('log.txt');
log.Destroy;
end else
begin
log.Add('--------------' + sysutils.DateToStr(now) + ' ' + sysutils.TimeToStr(now) + '--------------' );
log.Add(GetLocalIP +' '+GetCurrentUserName);
log.SaveToFile('log.txt');
log.Destroy;
end;
end.




Вот код полность заточенный под то что тебе нужно) решил не использовать мемо, а сделать проще)) Кстати, сделал, что если файл не существует, то он создается, а если существует то добавляет в него данные. Если еще что нужно будет - пиши))

[rainbow]

ToLeg; спасибо большое.

[ToLeG]

Сообщение от rainbow

ToLeg; спасибо большое.

Да незачто) ты такую прогурамму хотел?)) обращайся, чем могу - помогу)

[rainbow]

ToLeg, так то хорошо, я ничего не говорю, но при запуске на секунду вылазит какое то черное окно, было бы намного лучше если бы оно не вылазило.

[ToLeG]

Ухты ж Ёп!))) Надо что б вообще ничего не показывалось?)) жди. Скоро выложу)