Всем привет

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

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

1 лайк

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

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

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

1010101012

:catshake::catshake:

  • fjrjgfikrjgirjyg
  • jikr gjrgrg r ghr
  1. олуоашлкупокпкпр
  2. алкоаплкулко
  • оал полка пок пок пшк по
  • акпл пкл покл покл пол опеш

kfgkjgkrjgkrjg
jgkrjgrgrpgrgrg
grg
rgh
r
gh
rth
rt
hrt
h

Hi, I’m Desс.

2 лайка

hi :partyparrot:

Hi, Desc

ркапркоркокнокн

frjghjrghgujgth

dddddddddddddxscscsc

ffdffffffffffffff

Вадим, что с тобой?

1 лайк