Всем привет

Тестовая тема

Тестовая тема видна хорошо! :wink:

Добрый день.

Добрый день.
Приветствую Вас на форуме!

Всем доброй охоты, я пришёл )

Приветствую Вас!

Black Fregat
Приветствую

Ну и я нарисовался :smiley:

Добрый день.
Приветствую Вас!

Отлично! )) потихоньку соберем обратно всю компашку.

присоединяюсь к форуму

Ряды пополняются … ))

Всем привет. Я с вами. Очень рад. Спасибо за приглашение

Аватар загружается сразу в страницу без подтверждения кнопкой “Отправить” … Неожиданно …

я не злой, но… желаю алару, чтобы он ни с чем остался. или с кучей неадекватов

uses jpeg;// Lazarus
     
    procedure TForm1.Button1Click(Sender: TObject);
    var
      jpeg: TJPEGImage;
      bmp: TBitmap;
    begin
      if  PictureDialog1.Execute then
      begin
        jpeg := TJPEGImage.Create;
        bmp := TBitmap.Create;
        try
          jpeg.LoadFromFile(PictureDialog1.FileName);
          bmp.Assign(jpeg);
          ADOTable1.Edit;                  // режим редактирования
          ADOTable1.FieldByName('Foto').Assign(bmp);//загрузка фото
          ADOTable1.Post;                  // сохраняем данные
        finally
          jpeg.Free;
          bmp.Free;
        end;
      end;
    end;

Пост был перенесен в новую тему: Про вред от фильтров мата

1 2 3
2 4 5
8 4 6

22

10101010122

:catshake::catshake: