Запросы на компоненты

[hack]

Добрый вечер уважаемые!
Возникла задача - ведение Log_a, вроде бы просто:

procedure TForm1.AddLog(LogString, LogFileName: string);
var 
  F: TFileStream; 
  PStr: PChar; 
  LengthLogString: integer;
 begin 
    LengthLogString := Length(LogString) + 2; 
    LogString := LogString + #13#10; 
    PStr := StrAlloc(LengthLogString + 1);
    StrPCopy(PStr, LogString); 
   if FileExists(LogFileName) then 
     F := TFileStream.Create(LogFileName, fmOpenWrite) 
  else 
     F := TFileStream.Create(LogFileName, fmCreate); 
     F.Position := F.Size; 
     F.Write(PStr^, LengthLogString); 
     StrDispose(PStr); 
     F.Free; 
 end;

AddLog((DateToStr(Date)+' '+TimeToStr(Time))+' '+'...Test...' ,extractfilepath(application.exename) + 'Log.log');

Ограничение по количеству строк нашел:

function TForm1.WriteLog(LogFileName, Log: string;
  StrLimit: Integer): Integer;
var
  F: TextFile;
  function CheckLogFile: Integer;
  var
    I, Diff: Integer;
    FStr: TstringList;
  begin
    FStr := TStringList.Create;
    FStr.LoadFromFile(LogFileName);
    Diff := 0;
    if FStr.Count > StrLimit then
    begin
      Diff := FStr.Count - StrLimit;
      AssignFile(F, LogFileName);
      Rewrite(F);
      for I := Diff to FStr.Count - 1 do
        WriteLn(F, FStr[i]);
      CloseFile(F);
    end;
    Result := FStr.Count - Diff;
    FStr.Free;
  end;
begin
  Result := 0;
  if StrLimit < 1 then
    Exit;
  try
    AssignFile(F, LogFileName);
    if FileExists(LogFileName) then
      Append(f)
    else
      Rewrite(F);
    WriteLn(F, Log);
    Closefile(f);
  except Exit;
  end;
  Result := CheckLogFile;
end;

WriteLog(ExtractFilePath(Application.ExeName) +'MyLog.log','...Test...',50)

В связи с тем, что в него пишутся ответы по SNMP - периодичность 100мс, хотелось бы иметь ограничение на размер 1,5-2,5 метров,а то log растет, паразит, как на дрожжах.
Попробовал JVCL_log - но увы размер в оперативке (при свернутой в трей программе) - через 20 минут работы приводит к экцепшену.
Прошу совета - либо кусок кода, либо ссылку на ПРОВЕРЕННЫЙ компонент.
Заранее спасибо.

[ydmitryv]

Доброго времени суток!
У кого-нибуть есть последние TRichView, TSRV и RVA?
Заранее спасибо!

[Dim4ik]

У кого-нить есть обновленный Tx Text Control 14?

Добавлено через 1 минуту
Еще есть новый wptool?
Заранее большое спасибо.

[Dim4ik]

Всем привет. кто знает компоненты для работы с картами? какие бывают, какие плюсы - минусы?

Заранее спасибо

[WingStar]

Цитата: Сообщение от hack Прошу совета - либо кусок кода, либо ссылку на ПРОВЕРЕННЫЙ компонент. Заранее спасибо.

Var
  S: TStringList;
  F: TStream;
begin
  S := TStringList.Create; // это надо при старте ПО сделать
// а S: TStringList глобальнно объявить или делать loadfromfile
  S.Add('Строка лога');
  while S.Count > 1500 do S.Delete(0);
  // может так сработает;
  while Length(S.Text) > 1500 do S.Delete(0); // тут вмксто Length может надо StrLen но это сам проверь
  // если нет то
  F := TStream.Create;
  S.SaveToStream(F);
  while F.Size > 1500 do begin
    S.Delete(0);
    S.SaveToStream(F);
  end;
  S.SaveToFile('название файла');

Попробуй может поможет.
Тут я подумал лучше эту часть которая контролирует зазмер кинуть в отдельный TThread
и пусть себе конролирует размер или на таймер повесить, но лучне TThread.

[loz_andrey]

Нужен TX Text Control ActiveX, заранее спасибо.

[Andrik75]

Нужен EhLib 4.2!

[goster]

Плиз, может у кого-то есть компонент TMS Smooth ListBox (с сырцами) или пак TMS Smooth Controls (в нем есть этот компонент). Здесь не раз выкладывался пак TMS Component Pack (за что автору спасибо), в описании которого автор поста указывает, что там есть этот компонент, но в действительности его там нет (что кстати соответствует и описанию с оф.сайта).

Очень на вас надеюсь.

[dima1976]

Покапался в архивах, там все ссылки (которые я вижу) не работают, файлы по ним уже удалены. Скиньте пожалуйста свежую ссылку. Начальство уже торопит

[neonman]

Ищется графический компонент для Delphi. Желательно бесплатный с открытым кодом. Основные требования:
События: OnMouseMove, Enter, Leave... Click
Возможности: поддержка PNG и других форматов, поддержка прозрачности, поддержка градиентного заполнения (желательно с радиальным), интерполяция (желательно).
А самое главное - быстрый, чтобы не мерцал как TImage при любой перерисовке.

[katoa]

Burn CD/DVD Component Suite v.2.0 please.

Добавлено через 6 минут
SimpleMAPI Component Suite 1.5 please

[Vitaliy_S]

Нужен SecureBlackbox в исходниках.

[Vitaliy_S]

Так же нужны ODAC 6.70 и SecureBridge 2.0

[Developer06]

Доброго всем дня . Нужны Demos + Help TMS Component pack v4.8.0.0

Добавлено через 2 минуты
Желательно не exe, а source, , без компонент. Компоненты я уже скачал

[pomao]

Billenium effects 4.1 for d2009.
Помогите найти инсталяцию не триальную.