Правила Форума редакция от 22.06.2020 |
|
|
|
|
|
Опции темы | Опции просмотра | Language |
07.11.2008, 21:37 | #76 |
Re: Запросы на компоненты
Добрый вечер уважаемые!
Возникла задача - ведение 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) Попробовал JVCL_log - но увы размер в оперативке (при свернутой в трей программе) - через 20 минут работы приводит к экцепшену. Прошу совета - либо кусок кода, либо ссылку на ПРОВЕРЕННЫЙ компонент. Заранее спасибо.
__________________
У победы много отцов, поражение всегда сирота. Последний раз редактировалось hack; 07.11.2008 в 22:28.. |
|
Реклама: | Рекомендуем супермаркет KNS.ru - купить системный блок msi - более 50-ти тысяч наименований товаров со склада в Москве | Компьютерная фирма КНС Нева предлагает плоттер hp designjet t630 - поставка техники в СПБ и города северо-запада России. | тупой и еще тупее 2 смотреть | vl-b20-037g-4 | документация Power BI |
08.11.2008, 07:24 | #77 |
Неактивный пользователь
Пол: Регистрация: 13.12.2007
Сообщений: 7
Репутация: 12
|
Re: Запросы на компоненты
Доброго времени суток!
У кого-нибуть есть последние TRichView, TSRV и RVA? Заранее спасибо! |
08.11.2008, 11:54 | #78 |
Неактивный пользователь
Регистрация: 04.12.2006
Сообщений: 5
Репутация: 2
|
Re: Запросы на компоненты
У кого-нить есть обновленный Tx Text Control 14?
Добавлено через 1 минуту Еще есть новый wptool? Заранее большое спасибо. Последний раз редактировалось Dim4ik; 08.11.2008 в 11:55.. Причина: Добавлено сообщение |
08.11.2008, 11:58 | #79 |
Неактивный пользователь
Регистрация: 04.12.2006
Сообщений: 5
Репутация: 2
|
Какие бывают компоненты для работы с картами?
Всем привет. кто знает компоненты для работы с картами? какие бывают, какие плюсы - минусы?
Заранее спасибо |
08.11.2008, 12:33 | #80 | |||||||||||||||||||||||
Неактивный пользователь
Регистрация: 11.06.2008
Сообщений: 13
Репутация: 1
|
Re: Запросы на компоненты
Код:
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. Последний раз редактировалось WingStar; 08.11.2008 в 12:59.. |
|||||||||||||||||||||||
10.11.2008, 08:39 | #81 |
Неактивный пользователь
Пол: Регистрация: 25.09.2008
Сообщений: 6
Репутация: 0
|
Re: Запросы на компоненты
Нужен TX Text Control ActiveX, заранее спасибо.
|
10.11.2008, 19:00 | #82 |
Неактивный пользователь
Пол: Регистрация: 17.12.2007
Сообщений: 21
Репутация: 24
|
Re: Запросы на компоненты
Нужен EhLib 4.2!
|
11.11.2008, 17:18 | #83 |
Неактивный пользователь
Регистрация: 11.11.2008
Сообщений: 7
Репутация: 0
|
Re: Запросы на компоненты
Плиз, может у кого-то есть компонент TMS Smooth ListBox (с сырцами) или пак TMS Smooth Controls (в нем есть этот компонент). Здесь не раз выкладывался пак TMS Component Pack (за что автору спасибо), в описании которого автор поста указывает, что там есть этот компонент, но в действительности его там нет (что кстати соответствует и описанию с оф.сайта).
Очень на вас надеюсь. |
12.11.2008, 08:41 | #84 |
Неактивный пользователь
Регистрация: 12.11.2008
Сообщений: 7
Репутация: 0
|
Оччень нужен fastreport для delphi7
Покапался в архивах, там все ссылки (которые я вижу) не работают, файлы по ним уже удалены. Скиньте пожалуйста свежую ссылку. Начальство уже торопит
|
12.11.2008, 12:58 | #85 |
Re: Запросы на компоненты
Ищется графический компонент для Delphi. Желательно бесплатный с открытым кодом. Основные требования:
События: OnMouseMove, Enter, Leave... Click Возможности: поддержка PNG и других форматов, поддержка прозрачности, поддержка градиентного заполнения (желательно с радиальным), интерполяция (желательно). А самое главное - быстрый, чтобы не мерцал как TImage при любой перерисовке. |
|
12.11.2008, 20:06 | #86 |
Неактивный пользователь
Регистрация: 19.03.2007
Сообщений: 2
Репутация: 0
|
Re: Запросы на компоненты
Burn CD/DVD Component Suite v.2.0 please.
Добавлено через 6 минут SimpleMAPI Component Suite 1.5 please Последний раз редактировалось katoa; 12.11.2008 в 20:13.. Причина: Добавлено сообщение |
13.11.2008, 05:32 | #87 |
Неактивный пользователь
Регистрация: 20.08.2007
Сообщений: 3
Репутация: 0
|
Re: Запросы на компоненты
Нужен SecureBlackbox в исходниках.
|
13.11.2008, 08:18 | #88 |
Неактивный пользователь
Регистрация: 20.08.2007
Сообщений: 3
Репутация: 0
|
Re: Запросы на компоненты
Так же нужны ODAC 6.70 и SecureBridge 2.0
|
14.11.2008, 11:40 | #89 |
Неактивный пользователь
Пол: Регистрация: 29.05.2008
Сообщений: 6
Репутация: 0
|
Re: Запросы на компоненты
Доброго всем дня . Нужны Demos + Help TMS Component pack v4.8.0.0
Добавлено через 2 минуты Желательно не exe, а source, , без компонент. Компоненты я уже скачал Последний раз редактировалось Developer06; 14.11.2008 в 11:42.. Причина: Добавлено сообщение |
14.11.2008, 14:53 | #90 |
Новичок
Пол: Регистрация: 03.09.2008
Сообщений: 10
Репутация: 4
|
Re: Запросы на компоненты
Billenium effects 4.1 for d2009.
Помогите найти инсталяцию не триальную. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сетевые компоненты | frostmourne | Delphi | 9 | 07.02.2011 10:30 |
Бесплатные компоненты | Gerasoft | Компоненты | 16 | 17.03.2009 13:04 |
Компоненты | ErrorMs | Компоненты | 708 | 25.12.2007 16:00 |
|
|