Jump to content

Astrolab

uniGUI Subscriber
  • Posts

    26
  • Joined

  • Last visited

Posts posted by Astrolab

  1. I have UniDBGRid and UnipopUpMenu on the form. In grid I am calling popUpMenu by onContextClick

    procedure CellContextClick(Column: TUniDBGridColumn; X, Y: Integer);

     var g:tuniDBGrid;
    begin  
       copyPopUp.Popup(x,y);

       g:=tuniDBGrid(Column.Grid);
       copyPopUp.Popup (X, Y, g);
    end;

    In popUpMenu i have one menu item. How can i get a grid when i click on that menuItem.

    In delphi DBGRid and popUpMenu i get it by popUpMenu.getParentComponent ,

    how i can get it in UniGui.

  2. this is isapi log

      ocs_unigui.dll: 000008A4: 01:59:02 []:>--------------------------------------------------------------<

    ocs_unigui.dll: 000008A4: 01:59:02 []:Starting Server. Module Handle: 000000000A610000
    ocs_unigui.dll: 000008A4: 01:59:02 [TUniServerModule]:Server First Init.
    ocs_unigui.dll: 000008A4: 01:59:02 [TUniServerModule]:Erasing Cache Folder...
    ocs_unigui.dll: 000008A4: 01:59:02 [TUniServerModule]:Cache Folder Erased. <1> Files deleted.
    ocs_unigui.dll: 000008A4: 01:59:02 []:Server Started. Module Handle: 000000000A610000
    ocs_unigui.dll: 000008A4: 01:59:02 [HttpExtensionProc[127.0.0.1]]:EListError : Failed to delete tab at index 0 : Addr: $0A7889DA
  3. When i change application type from standalone to Isapi module


    i get this exception:


     


    An Exception has occured in application:


    Failed to delete tab at index 0


     


    standalone app works.


     


    here is dpr:


    //{$define UNIGUI_VCL} // Comment out this line to turn this project into an ISAPI module

     

    {$ifndef UNIGUI_VCL}

    library

    {$else}

    program

    {$endif}

      myApp;

     

    uses

      uniGUIISAPI,

      Forms,

      ServerModule in 'ServerModule.pas' {UniServerModule: TUniGUIServerModule},

      MainModule in 'MainModule.pas' {UniMainModule: TUniGUIMainModule},

      Main in 'Main.pas' {MainForm: TUniForm}

      // here goes my others units

    ;

     

    {$R *.res}

     

    {$ifndef UNIGUI_VCL}

    exports

      GetExtensionVersion,

      HttpExtensionProc,

      TerminateExtension;

    {$endif}

     

    begin

    {$ifdef UNIGUI_VCL}

      ReportMemoryLeaksOnShutdown := True;

      Application.Initialize;

      TUniServerModule.Create(Application);

      Application.Run;

    {$endif}

    end.

     


  4. object MainForm: TMainForm

      Left = 0

      Top = 0

      ClientHeight = 270

      ClientWidth = 635

      Caption = 'MainForm'

      OldCreateOrder = False

      MonitoredKeys.Keys = <>

      PixelsPerInch = 96

      TextHeight = 13

      object UniHTMLFrame1: TUniHTMLFrame

        Left = 0

        Top = 0

        Width = 635

        Height = 270

        Hint = ''

        HTML.Strings = (

          '<!DOCTYPE html>'

          '<html>'

          '<head>'

          '<style>'

          '.center_it {'

          '    text-align:center;'

          '}'

          '</style>'

          '</head>'

          ''

          '<body class='#39'center_it'#39'>'

          '<br><b>Center it test</b></br>'

          '</body>'

          ''

          '<html>')

        Align = alClient

        Anchors = [akLeft, akTop, akRight, akBottom]

        ExplicitLeft = 200

        ExplicitTop = 88

        ExplicitWidth = 256

        ExplicitHeight = 128

      end

    end

  5. Have you tried anything and are you getting an error or?

     

    Thanks for reply,

     

    In browser I Get error 500,

    in log file I Have:

    Project1: 00000C70: 13:23:23:Exception : None of the dynamic libraries can be found: libmysql51.dll, libmysql50.dll, libmysql.dll

     

    I am not sure if there are any special considerations for the apache server. In theory any database components should work.

     

    It is Zeus database components!

  6. next code works with tUniImage component,but i want do it with tUniDbImage.

     

    procedure TMainForm.UniDBGrid1CellClick(Column: TUniDBGridColumn);

    var

    JpegImage: TJPEGImage;

    BlobStream: TStream;

    begin

    with UniServerModule do begin

    if (not UniQuery1.FieldByName('picture').IsNull) then

    begin

    BlobStream := UniQuery1.CreateBlobStream(UniQuery1.FieldByName('picture'),bmRead);

    JpegImage := TJPEGImage.Create;

    try

    JpegImage.LoadFromStream(BlobStream);

    UniImage1.Picture.Assign(JpegImage);

    UniImage1.Visible := True;

    finally

    JpegImage.Free;

    BlobStream.Free;

    end;

    end

    else

    UniImage1.Visible := False;

    end;

    end;

×
×
  • Create New...