FreePascal.ru

Добрый день.
ОС: Linux.
Кто нибудь может подсказать как сделать скриншот с вебкамеры с предпросмотром? На данный момент выводится изображение с веб-камеры с помощью MPlayerControl в потоке. Теперь при нажатии на кнопку необходимо сделать скриншот с камеры предварительно выбрав в ComboBox-е нужную ...

Дорое время суток! Функция для поиска непрочитанных сообщений на эл.почте

if ImapClient.SearchMess('UNSEEN',MessList) then
ShowMessage('Функция сработала');
else ShowMessage('Функция не сработала'); \0

на одном ПК срабатывает, на другом нет, почему такое может быть?

понял почему, даже ...

всем спасибо, всё получилось!

Чтобы работал SSL, надо к своему проекту подключить модуль ssl_openssl(из synapse) в раздел uses любого модуля.
В папке с вашей программой или системном каталоге должны быть:
для Linux - libssl.so, libcrypto.so (под Linux имена библиотек обычно отличаются, там ещё версия дописана, поэтому надо ...

*Rik* писал(а):Да, в настройках почтовых ящиков на яндексе и майл.ру надо включать обцию "Разрешить использование внешних программ", чтобы вы не только браузером туда ломиться могли, иначе не пустит.

что то не могу найти такую настройку в mail.ru

pop3 на 110 (без шифрования) и 995 и (с шифрованием)

Добавлено спустя 23 минуты 22 секунды:
скачал пакет Synapse. пытаюсь использовать так:


var POP: TPOP3Send;
begin
POP:=TPOP3Send.Create;
Pop.AutoTLS := False;

POP.AuthType:=Pop3AuthLogin;
POP.Password&#58 ...

Здравствуйте! Подскажите, как реализовать проверку почты на наличие новых сообщений? Отправка удаётся с помощью пакета LNET (пакет SMTP). А вот как проверить почту?
Lazarus
Ubuntu 12.04

sign писал(а):Ловить в parent компонента.

а пример можно?

Добрый день! Событие Onclick отвечает за клик по компоненту, а как отловить клик вне компонента?

qivi писал(а):

Код: Выделить всё

Form1.Caption:=inttostr(Memo1.VertScrollBar.Position+Y);  

Спасибо! То что нужно!

Добрый день! Допустим в memo большое количество строк, присутствует скроллбар. Если отображать положение курсора при событии RichMemo1MouseMove, то показывает положение (X,Y) относительно левой и верхней границы. Но при прокрутки содержимого memo вниз значение отступа сверху не увеличивается ...

pupsik писал(а):не круто, но - вариант. т.е. такого не предлагали.

Код: Выделить всё

procedure TForm1.Memo1MouseEnter(Sender: TObject);
begin
    Screen.Cursor := crArrow ;
end;

procedure TForm1.Memo1MouseLeave(Sender: TObject);
begin
  Screen.Cursor := crDefault;
end; 

Спасибо! Помогло!

lazarus 1.2.6, FPC: 2.6.4
Ubuntu 12.04 LTS

так тоже не работает

не помогло