Can't get it to work af reinstall!

Discussions on GFL SDK, the graphic library for reading and writing graphic files

Moderators: XnTriq, helmut, xnview

Martin

Can't get it to work af reinstall!

Post by Martin »

Hey...

I just can't get GflAx to work after reinstalling my Windows... Running XP SP2 PRO!

I'm currently using the component on ASP-pages but code that used to work just doesn't work after I reinstalled XP SP2!

Here's my code:

Code: Select all

  Dim File
  File = Server.MapPath(Global_PathImages & "Items/" & Request.QueryString("Id") & "." & Request.QueryString("Ext"))

  If Len(File) > 0 Then
    Dim Ctrl, iHeight, iWidth
    Set Ctrl = Server.CreateObject("GflAx.GflAx")
    With Ctrl
      .LoadBitmap File
      .SaveFormat = 1 '3 = PNG
      .ChangeColorDepth 256
      iWidth = 100
      iHeight = (iWidth * .Height) / .Width
      .Resize iWidth, iHeight
      Response.ContentType = "image/jpeg"
      Response.BinaryWrite .SendBinary
    End With
    Set Ctrl = Nothing
  End If
...and as I said, this code used to work!

Btw. I've also installed a new version of Delphi along with alot of DOTNET stuff - can that have anything todo with the GflAx not working?

What have I done wrong.... installed the GflAx.dll in System32 dir and regsvr32'ed it!??? What more should I do ?
User avatar
xnview
Author of XnView
Posts: 44920
Joined: Mon Oct 13, 2003 7:31 am
Location: France

Re: Can't get it to work af reinstall!

Post by xnview »

Martin wrote:Hey...

I just can't get GflAx to work after reinstalling my Windows... Running XP SP2 PRO!

I'm currently using the component on ASP-pages but code that used to work just doesn't work after I reinstalled XP SP2!

Here's my code:

Code: Select all

  Dim File
  File = Server.MapPath(Global_PathImages & "Items/" & Request.QueryString("Id") & "." & Request.QueryString("Ext"))

  If Len(File) > 0 Then
    Dim Ctrl, iHeight, iWidth
    Set Ctrl = Server.CreateObject("GflAx.GflAx")
    With Ctrl
      .LoadBitmap File
      .SaveFormat = 1 '3 = PNG
      .ChangeColorDepth 256
      iWidth = 100
      iHeight = (iWidth * .Height) / .Width
      .Resize iWidth, iHeight
      Response.ContentType = "image/jpeg"
      Response.BinaryWrite .SendBinary
    End With
    Set Ctrl = Nothing
  End If
...and as I said, this code used to work!

Btw. I've also installed a new version of Delphi along with alot of DOTNET stuff - can that have anything todo with the GflAx not working?

What have I done wrong.... installed the GflAx.dll in System32 dir and regsvr32'ed it!??? What more should I do ?
Strange what's happened? Perhaps a problem with security???
Pierre.