Библиотека содержит несколько компонентов, облегчающих создание интернет-приложений и полностью совместимых с борландовским набором интернет-компонентов: TpsvPageProducer TpsvScriptLib TpsvTagLib TWebLibrary TpsvWebChart создает JPeg изображение из TChart TpsvWebRTF создает JPeg изображение из документа в Rich Text TpsvDataSetPageProducer TpsvDBPageProducer TpsvDBCtrlProducer аналогичен TDBCtrlGrid TpsvDBContentProducer возвращает содержимое поля BLOB как документ TpsvImageProducer создает изображение из TImageList TpsvCountryProducer TpsvDBFieldProducer TpsvFolderProducer TpsvWebBrowser может загрузить содержимое из строки, StringList или потока stream. С исходными текстами
Источник: www.delphipages.com
Автор: Serhiy Perevoznykhttp://www.delphipages.com/resume/resume.cfm?ID=300 -= · VCL · Samples · =- [Перевел: Mark S. Zheleznyak]
Для уменьшения объема писем здесь публикуется не весь список новых компонент, потому заглядывайте и на сайт!
Модуль содержит одну функцию InvokeContextMenu, написанную на основе ShellCtrls.InvokeContextMenu и выводящую контекстное меню оболочки. Исправлены некоторые ошибки и добавлен параметр для работы со специальными объектами. Буду благодарен за сообщения об обнаруженных ошибках или неоптимальных решениях.
»»» Скачать: исходные тексты (2кб)
UGH! (Ultra Good-looking sHell) - эта самая удобная и маленькая, оболочка для UPX. Поверте я много их пересмотрел прежде чем сделать свою. Исходники прилогаются. Для использования НУЖЕН UPX. (В той-же директории)
»»» Скачать: исходные тексты (32кб) демонстрационный EXE файл (39кб)
procedure TForm1.FindDialog1Find(Sender: TObject); var FoundAt: LongInt; StartPos, ToEnd: Integer; begin with RichEdit1 do begin { begin the search after the current selection if there is one } { otherwise, begin at the start of the text } if SelLength
<> 0 then
StartPos := SelStart + SelLength; else
StartPos := 0;
{ ToEnd is the length from StartPos to the end of the text in the rich edit control }
ToEnd := Length(Text) - StartPos;
FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]); if FoundAt <> -1 then begin SetFocus; SelStart := FoundAt; SelLength := Length(FindDialog1.FindText); end; end; end;
в хелпе 5 делфи
С уважением, Оксана
-= Из конференции сайта MASTERS OF DELPHI (http://delphi.mastak.com) =-
8) Загрузить в StringGrid из текстового файла с разделителями (здесь '|')
procedure TForm1.Button1Click(Sender: TObject); var sl:TStringList; i,j,CCount:integer; begin sl:=TStringList.Create; sl.LoadFromFile('e:\aa.txt'); With StringGrid1 Do Begin RowCount:=sl.Count+1; for i:=0 to sl.Count-1 do begin sl[i]:=Cells[i,0]+#13#10+ StringReplace(sl[i],'|',#13#10,[rfReplaceAll]); //можно убрать, если ColCount достаточно велико CCount:=1; for j:=1 to length(sl[i]) do if sl[i][j]=#13 then inc(CCount); if ColCount<CCount then ColCount:=CCount; // Rows[i+1].Text:=sl[i]; end; end; sl.Free; end;
Сервис не позволяет завершить работу.
Написал программу, которая работает как сервис. Работает она вполне сносно, но вот одна проблемма: пока сервис запущен ...
Оптимальная структура базы?
Вопрос в следующем: как правильно организовать структуру базы что бы в ней учесть 1. Структуру предприятия (иерархия ...
«DELPHI в примерах для начинающих» - Изучение простейших приемов работы с файлами и потоками на примере программы «Монитор каталогов»
Давайте вместе создадим программу, которая будет непрерывно проверять каталог на предмет изменения содержимого (появление нового файла, удаление файла, переименование и изменение файла). Добавим в нашу программу возможность ведения протокола изменений в проверяемом каталоге и функции динамической настройки этого списка. После написания программы добавим еще одно "удобное" свойство – спрячем программу в SysTray...
Delphi 5: учебный курс
В книге рассмотрены возможности системы программирования Delphi 5, описан язык программирования Object Pascal, рассмотрены визуальные компоненты системы и методы их создания. Особое внимание уделено принципам и практическим приемам создания сетевых приложений для разных архитектур и разработке программ, поддерживающих основные протоколы Интернета.Не требует специальной подготовки, может быть использована как пособие для изучающих основы программирования и сетевые технологии, а также как справочник по компонентам Delphi и пособие для самообразования.
Автор: С. Бобровский
Кладезь знаний человеческих На нашем сайте Вы найдете статьи на любую тему связанную с копмпьютером! Почти каждодневное обновление, отменные статьи, форум! Заходите, мы будем рады Вам!
» Оценка сайта: 2
Опрос населения :)
Новый журнал для программистов "RSDN Magazine". За какую сумму вы готовы его покупать?
Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.
Для души
Хокку дня
Имена девочек на асфальте, Прохожу по ним от детства все дальше.
Афоризмы
Самые благородные поступки совершаются, как правило, по глупости....
Фраза дня
Это Вам не гифы по сайтам тырить!
Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Хартфорде в Коннектикуте (США) супругам запрещено целоваться по воскресеньям.
В городе Нью Бритэн (США) пожарные машины не могут ездить быстрее, чем со скоростью в 25 миль в час, даже если они едут на пожар.
И на закуску коротенький анекдот
- Борис! Ты женат? - Временно. - Не понял. - Старший брат на курорте, и его жена пока вместо него ругает меня...