Page 1 of 1

Can't get it to work af reinstall!

Posted: Wed Nov 30, 2005 12:22 am
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 ?

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

Posted: Sun Dec 04, 2005 1:56 pm
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???