archive-com.com » COM » E » EFG2.COM

Total: 878

Choose link from "Titles, links and description words view":

Or switch to "Titles and links view".

  • will get you started in storing and recovering a jpeg Why I called a Blob field GRAPHIC and used persistent fields are lost in the midst of time Bob unit Unit1 Demo of working with blob fields and the Clipboard There is no predefined clipboard format for JPeg In principle any file type can be stored on the clipboard using the method demonstrated When an image file type is stored a bitmap version would usually also be stored as this is universally acceptable interface uses Windows Messages SysUtils Classes Graphics Controls Forms Dialogs ExtDlgs Db DBTables StdCtrls ExtCtrls DBCtrls JPeg ClipBrd type TForm1 class TForm DBNavigator1 TDBNavigator Panel1 TPanel Image1 TImage Button1 TButton Table1 TTable DataSource1 TDataSource OpenPictureDialog1 TOpenPictureDialog Table1Idx TAutoIncField Table1Graphic TBlobField Button2 TButton SaveDialog1 TSaveDialog Button5 TButton Button6 TButton procedure FormCreate Sender TObject procedure Button1Click Sender TObject procedure FormCloseQuery Sender TObject var CanClose Boolean procedure DataSource1DataChange Sender TObject Field TField procedure Button2Click Sender TObject procedure Button5Click Sender TObject procedure Button6Click Sender TObject private Private declarations public Public declarations end var Form1 TForm1 CF JPEG word implementation R DFM procedure TForm1 FormCreate Sender TObject var s TFileName begin s ExtractFilePath Application Exename OpenPictureDialog1 InitialDir s OpenPictureDialog1 Filter JPeg files jpg JPG SaveDialog1 InitialDir s SaveDialog1 Filter JPeg files jpg JPG Table1 DatabaseName s Table1 Open end procedure TForm1 FormCloseQuery Sender TObject var CanClose Boolean begin Table1 Close end procedure TForm1 DataSource1DataChange Sender TObject Field TField var jpg TJpegImage memStream TMemoryStream begin memStream TMemoryStream Create try jpg TJpegImage Create try if not Table1Graphic IsNull then begin Table1Graphic SaveToStream memStream memStream Seek 0 0 jpg LoadFromStream memStream Image1 Picture Assign jpg end finally jpg free end finally memStream free end end Load jpeg in file to blob field procedure TForm1 Button1Click Sender TObject begin if OpenPictureDialog1 Execute then with Table1 do

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/1219.txt (2016-02-14)
    Open archived version from archive



  • newsgroups borland com borland public delphi graphics 51262 procedure SetJpgdpi filename String dpix dpiy Integer CONST BufferSize 50 DPI 1 inch DPC 2 cm VAR Buffer STRING index INTEGER FileStream TFileStream xResolution WORD yResolution WORD type Byte begin FileStream TFileStream Create filename fmOpenReadWrite TRY SetLength Buffer BufferSize FileStream Read buffer 1 BufferSize index POS JFIF 00 buffer IF index 0 THEN BEGIN FileStream Seek index 6 soFromBeginning type DPI FileStream

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2002/0916.txt (2016-02-14)
    Open archived version from archive


  • text plain charset us ascii Organization TeamB Mime Version 1 0 Reply To pandeng telepath com Newsgroups borland public delphi graphics On Thu 24 Jun 1999 12 58 32 0200 Mikael Bak wrote I have a question on the JFIF specification How do I calculate the pixel density Xdensity Ydensity in the APP0 marker from given print size values The interpretation of the density values depends on the value of

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0624a.txt (2016-02-14)
    Open archived version from archive


  • back to the TJpeg Component to save it again with an new Quality If I do this there is an strange behavior Problem ist that it works with smal images but if I use larger images e g more than 1 Mb Jpeg Files I get some times an Jpeg Error number 36 but some times not Is there anybode with know I can solve this problem next the code

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2000/0303.txt (2016-02-14)
    Open archived version from archive


  • byte aligned TpPcxHeader TPcxHeader TPcxHeader packed record Manufacturer Byte Version Byte Encoding Byte BitsPerPixel Byte XMin Word YMin Word XMax Word YMax Word XDpi Word YDpi Word Palette packed array 0 47 of Byte VMode Byte ColourPlanes Byte BytesPerLine Word PaletteType Word ScreenWidth Word ScreenHeight Word Filler array 0 53 of Byte end Best regards Michel http www cam org mibra spider Envision Image Library Spider Object Database Spider Container and Persistent Classes freeware WordShare string localization freeware marlobes wrote I am using an Image PCX component called MImage from Mark D Rafn that I got off the www torry ru web site in the Graphics section I am using the component in Builder 4 and editing PCX images in various ways The PCX images are initially 600 dpi When I save out the file with the SaveToFile method and then look at the PCX through an image editor the file ends up having changed to 96 dpi Then if I try to reload the file into my program I get an error and can not open it But if I then convert it to 600 dpi and try it works I figure that this is not limited to the

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0516b.txt (2016-02-14)
    Open archived version from archive


  • ROOT wrifile Write Document shell open command C Progra 1 Access 1 WORDPAD EXE 1 print command C Progra 1 Access 1 WORDPAD EXE p 1 printto command C Progra 1 Access 1 WORDPAD EXE pt 1 2 3 4 In the preceding commands the 1 parameter is the filename 2 is the printer name 3 is the driver name and 4 is the port name In Windows 95 you

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/1210.txt (2016-02-14)
    Open archived version from archive


  • 57 19 Aug 2002 20 19 50 0700 Path newsgroups borland com not for mail Xref dnews borland public delphi graphics 50701 I ve used this procedure with RXRichEdit because it can contain pictures procedure TForm1 Button1Click Sender TObject var b tbitmap fr TFormatRange r TRect begin rxrichedit1 Lines LoadFromFile e wwe rtf b tbitmap create b width rxrichedit1 width b height rxrichedit1 height r rect 0 0 RXRichEdit1 Width

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2002/0820.txt (2016-02-14)
    Open archived version from archive


  • or your clients machine you can just use the Media Player this is by far the simplest method If you are talking about components I have not heard of any but would be interested in some if anyone has the time to write them I recently found out that the Delphi Jedi team http www delphi jedi org had someone converting the QuickTime 3 0 SDK over to Delphi last

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0519a.txt (2016-02-14)
    Open archived version from archive



  •