SaveToJpg

1.  .
2.   SaveToJpg1 .
3.   SaveToJpg2 .
4.  Bmp2Jpg.
5.  .

1.  .
Vb      Gif & Jpg,     BMP.      .     3 ,      JPG.
   Delphi 3,     VisualBasic.


2.   SaveToJpg1 .
   ,   , PictureBox-    .
  (VB):
Private Declare Sub SaveToJpg1 Lib "c:\savtojpg.dll" (ByVal hgd As Long, ByVal FileName As String, _
ByVal Height As Long, ByVal Width As Long)
:
    Hgd -     ( Picture1.HDc)
    FileName -  
    Height, Width -    .

3.   SaveToJpg2 .

   ,   , PictureBox-    . 
 :
Private Declare Sub SaveToJpg2 Lib "c:\savtojpg.dll" (ByVal hWind As Long, ByVal FileName_
As String, ByVal Height As Long, ByVal Width As Long)
:
    HWind -    ( Picture1.HWnd)
    FileName -  
    Height, Width -    .

4.  Bmp2Jpg.

    BMP  JPG.

 :
Private Declare Sub Bmp2Jpg  Lib "c:\savtojpg.dll" (ByVal f1 As String, ByVal f2 As String)
:
    F1 -   BMP
    F2 -   JPG

5.  .
'         PictureBox
'  Declaration  .

Private Declare Sub SaveToJpg1 Lib "c:\savtojpg.dll" (ByVal hgd As Long, ByVal FileName As String, _
ByVal Height As Long, ByVal Width As Long)
Private Declare Sub SaveToJpg2 Lib "c:\savtojpg.dll" (ByVal hWind As Long, ByVal FileName_
As String, ByVal Height As Long, ByVal Width As Long)
Private Declare Sub Bmp2Jpg  Lib "c:\savtojpg.dll" (ByVal f1 As String, ByVal f2 As String)

'  -  ,  -  .
Private Sub Command1_Click
    '  PictureBox'a
  SaveToJpg1 (Picture1.HDc, "c:\hello.jpg", picture1.ScaleHeight, Picture1.ScaleWidth)
   '   
 SaveToJpg2 (0, "c:\desktop.jpg",800,600)
  '  BMP  JPG
Bmp2Jpg ("MyBMP.bmp","MyJPG.jpg")


  DLL     ,  Savtojpg.dll  
' ' - "C:\".    DLL- Savtojpg.dll   ,  
      .


  -    . [Evgeny_k@oris.ru]







