Всем привет

Тестовый раздел
#1

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

#2

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

#3

Добрый день.

#4

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

#5

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

#6

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

#7

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

#8

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

#9

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

#10

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

#11

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

#12

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

#13

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

1 лайк
#14

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

#15

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

#16 
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;
#31

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

#32
1 2 3
2 4 5
8 4 6
#33

22

1010101012

#34

:catshake::catshake: