Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.
procedure LoadImageFromDB(ABlobField: TField; AImage: TImage); var NewGraphic: TGraphicClass; GraphicClass: TGraphicExGraphicClass; Stream : TStream; begin Stream := ABlobField.DataSet.CreateBlobStream(ABlobField, bmRead); // for some reason, Size is ALWAYS 0 however, it STILL // goes into the block ???..??? if (Stream.Size > 0) then begin Stream.Position := 0; GraphicClass := FileFormatList.GraphicFromContent(Stream); if GraphicClass = nil then raise EInvalidGraphic.Create('UnknownExtension'); NewGraphic := GraphicClass.Create; try AImage.Picture.Graphic := NewGraphic; finally NewGraphic.Free; end; AImage.Picture.Graphic.LoadFromStream(Stream); if AImage.Picture.Graphic <> nil then AImage.Picture.Graphic := nil; AImage.Picture.Graphic := NewGraphic; end; end;
|Delphi selector screen||2||84|
|QRReport TQrmemo vertical stretching||1||53|
|Why can't I create any project with my delphi EXE file?||6||39|
|TEMBEDDEDWB how can i change its user agent ?||8||70|