Такая проблема.Облазил весь инет ничего не могу найти. Как загрузить в Image картинку из Базы данных SQL. Вот выбор картинки:
P.S. Тип столба картинки MediumBlob
Попробуйте вот так:
uses
PNGImage;
procedure TForm1.Button1Click(Sender: TObject);
var
VPng: TGraphic;
begin
VPng := TPNGObject.Create; // или TPNGImage.Create; если Delphi XE2 и выше
try
...
SQLQuery1.Open;
VPng.Assign(SQLQuery1.FieldByName('photo'));
Image1.Picture.Assign(VPng);
finally
VPng.Free;
end;
end;
Компонент PNGImage в новых версиях Delphi встроен, а для старых версий можно взять тут: https://github.com/JackTrapper/pngdelphi
Альтернативный способ, через промежуточный TStream:
var
VPng: TGraphic;
VStream: TStream;
begin
VPng := TPNGObject.Create;
try
...
SQLQuery1.Open;
VStream := SQLQuery1.CreateBlobStream(SQLQuery1.FieldByName('photo'), bmRead);
try
// тут VStream можно сохранить на диск или сделать
// какие-то дополнительные проверки формата изображения
VPng.LoadFromStream(VStream);
Image1.Picture.Assign(VPng);
finally
VStream.Free;
end;
finally
VPng.Free;
end;
end;
Виртуальный выделенный сервер (VDS) становится отличным выбором
Есть таблица, в которой хранится информация по email рассылке для каждого пользователя (тема письма, текст письма, статус отправки и тд
Мне нужно, чтобы после того, как кто-нибудь, например, написал цифру 20, она добавилась к ссылке
Нужно сделать textarea так, чтобы сначала отображался текст, который находится в самом конце, а потом чтобы уже самому можно было пролистать вверх
Подскажите каким образом я могу растянуть слайдер на весь див заданный для слайдера, никак не получается! Так же не могу сделать его адаптивным,...