Monthly Archives: November 2015

Delphi. MSHTML. Загрузка страницы и парсинг

Posted on 30.11.2015 by Stanislav_Panteleev

Все началось с того, что я учился парсингу из Delphi. Хотелось понять возможности Delphi в этом направлении. В сети очень, очень много разнообразной информации, тема давным давно изучена многими людьми, но для меня это новая информация. В данном посте я … Continue reading →

Posted in Delphi, MSHTML | Comments Off

Delphi. Как загрузить сайт для парсинга?

Posted on 28.11.2015 by Stanislav_Panteleev

Наверное, самый простой способ загрузить сайт для парсинга это компонент TIdHTTP и его метод Get. Если открыть официальную документацию компонентов Indy, то можно увидеть следующее описание метода Get, компонента TidHTTP

function Get(
    AURL:  string
):  string;  overload;

function Get(

AURL: string

): string; overload;

И ещё одна его перегруженная версия, которая грузит сайт в … Continue reading →

Posted in Delphi, Delphi и сети, Без рубрики | Comments Off

Firemonkey. Мелкие формы или высокое разрешение.

Posted on 28.11.2015 by Stanislav_Panteleev

Программируя на 15 дюймовом ноутбуке, заметил, что в XE7 разрешение приложений вполне приемлемое. А вот в XE10 Seattle на FireMonkey приложениях все стало очень мелким. При этом размеры у них абсолютно одинаковые 640 480. Пару дней искал в чем дело, … Continue reading →

Posted in Без рубрики | Comments Off

Регулярные выражения. Практика

Posted on 27.11.2015 by Stanislav_Panteleev

В прошлом посте я разбирался с теорией, сейчас попробую попрактиковаться в Delphi с разными примерами из разных блогов. Элементарно

//uses RegularExpressions
...
procedure TForm.Button1Click(Sender: TObject);
var 
  RegEx: TRegEx;
begin
  RegEx := TRegEx.Create('Hello');// Определяем то, что ищем, собственно регулярное выражение
//Далее определяем текст, в котором ищем
  if RegEx.IsMatch('Hello world') then Caption := 'match'; 
end;

//uses RegularExpressions

...

procedure TForm.Button1Click(Sender: TObject);

var

RegEx: TRegEx;

begin

RegEx := TRegEx.Create('Hello');// Определяем то, что ищем, собственно регулярное выражение

//Далее определяем текст, в котором ищем

if RegEx.IsMatch('Hello world') then Caption := 'match';

end;

Теперь тоже самое, но с использованием метасимволов

procedure TForm.ButtonClick(Sender: TObject);
var 
  RegEx:TRegEx;
begin
  RegEx := TRegEx.Create('^H[\w]+o\b');
  if RegEx.IsMatch('Hello world') then 
    form.Caption := 'match';
end;

procedure TForm.ButtonClick(Sender: TObject);

var

RegEx:TRegEx;

begin

RegEx := TRegEx.Create('^H[\w]+o\b');

if RegEx.IsMatch('Hello world') then

form.Caption := 'match';

end;

Что написано в последнем коде? Разберем регулярное выражение

Posted in Delphi, Без рубрики, Регулярные выражения | Comments Off

Регулярные выражения.Теория

Posted on 26.11.2015 by Stanislav_Panteleev

Заинтересовался темой регулярных выражений. Серию постов про регулярные выражения, пишу для себя, чтобы разобраться и систематизировать информацию. Но если для Вас пост окажется полезным – буду рад. Зачем? Насколько я понимаю – для того, чтобы минимальным количеством кода находить информацию в тексте. … Continue reading →

Posted in Delphi, Без рубрики, Регулярные выражения | Comments Off

Как подключиться к удаленной БД MySQL и открыть другую форму после успешного подключения?

Posted on 21.11.2015 by Stanislav_Panteleev

Что делаем? Пишем программу, которая открывает 2 форму, после успешного подключения к БД. Пишем в Delphi FireMonkey HD Application Исходные компоненты 1 форма – главная, откроется после успешного подключения

Posted in Delphi, MySQL | Comments Off

Работа с дисками, папками, файлами. Обзор System.IOUtils

Posted on 14.11.2015 by Stanislav_Panteleev

uses System.IOUtils Список и размер дисков

procedure TForm1.bGetDisksClick(Sender: TObject);
var SDA:TStringDynArray; i:integer;
begin
 Combobox1.Clear;
 SDA:=Tdirectory.GetLogicalDrives;
 for i := 0 to High(SDA) do 
   Combobox1.Items.Add(SDA[i]);
 Combobox1.ItemIndex:=0;
end;

//Размер диска (на примере диска С это номер 3 функции DiskSize)
//Выводим в ListBox
ListBox1.Clear; 
ListBox1.Items.Add( inttostr( DiskSize(3))+'   bytes'  ) ;

procedure TForm1.bGetDisksClick(Sender: TObject);

var SDA:TStringDynArray; i:integer;

begin

Combobox1.Clear;

SDA:=Tdirectory.GetLogicalDrives;

for i := 0 to High(SDA) do

Combobox1.Items.Add(SDA[i]);

Combobox1.ItemIndex:=0;

end;

//Размер диска (на примере диска С это номер 3 функции DiskSize)

//Выводим в ListBox

ListBox1.Clear;

ListBox1.Items.Add( inttostr( DiskSize(3))+' bytes' ) ;

Сбор сведений о каталогах и файлах

procedure TForm1.GetDirsAndFilesClick(Sender: TObject);
var SDA:TStringDynArray; i:integer;
begin
SDA:=TDirectory.GetFileSystemEntries('C:\','*.*');
ListBox1.Clear;
for i := 0 to High(SDA) do 
  ListBox1.Items.Add(SDA[i]);
end;
{Также полезные функции GetFiles и GetDirectories}

procedure TForm1.GetDirsAndFilesClick(Sender: TObject);

var SDA:TStringDynArray; i:integer;

begin

SDA:=TDirectory.GetFileSystemEntries('C:\','*.*');

ListBox1.Clear;

for i := 0 to High(SDA) do

ListBox1.Items.Add(SDA[i]);

end;

{Также полезные функции GetFiles и GetDirectories}

Posted in Delphi, FireMonkey, Без рубрики | Comments Off

TAction simple example (Copy Cut Paste)

Posted on 13.11.2015 by Stanislav_Panteleev

На форме FireMonkey – Memo, ActionList, MainMenu В ActionList добавим 3 элемента acCopy acCut acPaste Напишем обработчики для элементов ActionList

procedure TForm1.acCopyExecute(Sender: TObject);
begin
  Memo.CopyToClipboard;
end;

procedure TForm1.acCutExecute(Sender: TObject);
begin
  Memo.CutToClipboard;
end;

procedure TForm1.acPasteExecute(Sender: TObject);
begin
  Memo.PasteFromClipboard;
end;

procedure TForm1.acCopyExecute(Sender: TObject);

begin

Memo.CopyToClipboard;

end;

procedure TForm1.acCutExecute(Sender: TObject);

begin

Memo.CutToClipboard;

end;

procedure TForm1.acPasteExecute(Sender: TObject);

begin

Memo.PasteFromClipboard;

end;

Далее – актуализируем через Update

procedure TForm1.acCopyUpdate(Sender: TObject);
begin
  acCopy.Enabled := (Memo.SelLength>0);
end;

procedure TForm1.acCutUpdate(Sender: TObject);
begin
  acCut.Enabled:=(Memo.SelLength>0)
end;

procedure TForm1.acPasteUpdate(Sender: TObject);
var 
  Clip:IFMXClipboardService; 
  s:string;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService,IInterface(Clip)) then
  begin
    s:=Clip.GetClipboard.ToString;
    acPaste.Enabled:=s.Length>0
  end 
  else 
    acPaste.Enabled:=false;
end;

procedure TForm1.acCopyUpdate(Sender: TObject);

begin

acCopy.Enabled := (Memo.SelLength>0);

end;

procedure TForm1.acCutUpdate(Sender: TObject);

begin

acCut.Enabled:=(Memo.SelLength>0)

end;

procedure TForm1.acPasteUpdate(Sender: TObject);

var

Clip:IFMXClipboardService;

s:string;

begin

if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService,IInterface(Clip)) then

begin

s:=Clip.GetClipboard.ToString;

acPaste.Enabled:=s.Length>0

end

else

acPaste.Enabled:=false;

end;

Posted in Delphi, FireMonkey | Comments Off

PopupMenu

Posted on 12.11.2015 by Stanislav_Panteleev

Самый простой способ подключить TPopupMenu – воспользоваться свойством PopupMenu. На рис. ниже пример для компонента TImage Но, к сожалению не у всех компонентов есть это свойство, например, его нет у TForm. Если у компонента нет свойства Popup, то можно подключить … Continue reading →

Posted in Delphi, FireMonkey, Без рубрики | Comments Off

PHP, трабл с кодировкой (решено)

Posted on 12.11.2015 by Stanislav_Panteleev

в php.ini переменную output_buffering поставить в значение On в файле скрипта, в самом начале, БЕЗ ЕДИНОГО ПРОБЕЛА прописать

<?php header('Content-Type: text/html; charset=utf-8'); ?>

1	<?php header('Content-Type: text/html; charset=utf-8'); ?>

Posted in PHP, Без рубрики | Comments Off

Monthly Archives: November 2015

Delphi. MSHTML. Загрузка страницы и парсинг

Delphi. Как загрузить сайт для парсинга?

Firemonkey. Мелкие формы или высокое разрешение.

Регулярные выражения. Практика

Регулярные выражения.Теория

Как подключиться к удаленной БД MySQL и открыть другую форму после успешного подключения?

Работа с дисками, папками, файлами. Обзор System.IOUtils

TAction simple example (Copy Cut Paste)

PopupMenu

PHP, трабл с кодировкой (решено)

MY PROJECTS

Recent Posts

Categories