Page 1 of 2 1 2 LastLast
Results 1 to 15 of 28

Thread: WebDelphi: lege pagina in plaats van tabel

  1. #1

    en weet iemand dit ook?

    als ik Deze uitleg volg dan hoor je op een gegeven moment de data te kunnen wijzigen uit een tabel.

    mijn probleem: ik krijg nu de pagina wel waar je wat zou kunnen wijzigen maar er staat nix ingevuld...

  2. #2
    Senior Member Anders's Avatar
    Join Date
    Dec 2001
    Location
    Doetinchem
    Posts
    1,415
    Is je Html form values met de goede Html tag gemaakt? Heb je verbinding met je database? Etc.

    Je zal toch even wat code moeten posten of je project - anders wordt het wel erg moilijk helpen
    Anders

    May your code compile!

  3. #3
    Threadnaam gewijzigd, was 'en weet iemand dit ook?'
    Marcel

  4. #4
    goed het project + db:
    Attached Files Attached Files

  5. #5
    +project
    Attached Files Attached Files

  6. #6
    Senior Member Anders's Avatar
    Join Date
    Dec 2001
    Location
    Doetinchem
    Posts
    1,415
    Wie ziet het verschil?
    Ik probeer ToRrES te helpen met zij webapplicatie, maar ben nu op iets heel raars gestuit.

    Deze code lomt uit ToRrES applicatie en het probleem is dat hij niet automatisch de de PathInfo zet:
    Code:
    http://localhost/cgi-bin/GegInvoer?KlantGeg=1234
    Code:
    procedure TWebModule1.TPListFormatCell(Sender: TObject; CellRow,
      CellColumn: Integer; var BgColor: THTMLBgColor; var Align: THTMLAlign;
      var VAlign: THTMLVAlign; var CustomAttrs, CellData: String);
    begin
      if CellRow > 0 then
      	begin
        	if CellColumn = 0 then
          	CellData := Format('<a href="GegInvoer?KlantGeg=%0:s">%0:s</a>',[CellData]);
      	end;
    end;
    En onderstaande code, die van mijn eerste probeersels is - nagebouwd aan de hand van Marcels artikel - WebDelphi, die doet het wel
    Code:
    http://localhost/cgi-bin/webdelphi.exe/PartDetail?PartNo=9312
    Code:
    procedure TWebModule1.DataSetTableProducerPartsListFormatCell(
      Sender: TObject; CellRow, CellColumn: Integer; var BgColor: THTMLBgColor;
      var Align: THTMLAlign; var VAlign: THTMLVAlign; var CustomAttrs,
      CellData: String);
    begin
      if CellRow > 0 then
      begin
        if CellColumn = 0 then
          CellData := Format('<a href="PartDetail?PartNo=%0:s">%0:s</a>', [CellData])
        else if (CellColumn in [3,4]) and
            (QueryParts['OnOrder'] > QueryParts['Onhand']) then
          CellData := Format('<font color="#ff0000">%s</font>', [CellData]);
      end;      
    end;
    Ik zie in iedere geval niet het verschil
    Ook heb ik probeert een heel nieuwe aplicatie te bouwen met de code van ToRrES er in, maar ook dat hielp niet.

    Iemand ideeen?
    Anders

    May your code compile!

  7. #7
    Hoe krijg je die lijst dan? Met /ShowAll krijg ik geen regels terug.
    Marcel

  8. #8
    geen regels terug hoe bedoel je?

  9. #9
    Ik zie wel de headers maar geen regels. Klopt ook want de RecordCount is 0.
    Marcel

  10. #10
    Senior Member Anders's Avatar
    Join Date
    Dec 2001
    Location
    Doetinchem
    Posts
    1,415
    @Marcel de database is leeg
    Anders

    May your code compile!

  11. #11
    Senior Member Anders's Avatar
    Join Date
    Dec 2001
    Location
    Doetinchem
    Posts
    1,415
    En als ik de regel zo veranderen werkt hij wel:
    Code:
    CellData := Format('<a href="webreg.exe/GegInvoer?KlantGeg=%0:s">%0:s</a>',[CellData]);
    Maar dat snap ik niet Waarom doet hij wel in de tweede stuk code van mij (Marcel )
    Last edited by Anders; 01-Apr-03 at 15:38.
    Anders

    May your code compile!

  12. #12
    Ah, kan het zijn dat je de ene keer wel met een afsluitende slash aanroept en de andere keer niet?
    Marcel

  13. #13
    Senior Member Anders's Avatar
    Join Date
    Dec 2001
    Location
    Doetinchem
    Posts
    1,415
    Dacht het niet - maar om zeker te zijn moet ik eerst testen Duurt wel even - ben net thuis
    Last edited by Anders; 30-Mar-03 at 23:11.
    Anders

    May your code compile!

  14. #14
    Senior Member Anders's Avatar
    Join Date
    Dec 2001
    Location
    Doetinchem
    Posts
    1,415
    Zoals het zo vaak is - Marcel zat op het goede spoor

    Als je een cgi of ISAPI aanroept, waar in de action code die er op volgt, een relatieve verwijzing wordt gebruikt moet er achter de Exe naam altijd minimaal een slash, bv.
    Code:
    http://localhost/cgi-bin/webreg.exe/
    of zo
    Code:
    http://localhost/cgi-bin/webreg.exe/GegInvoer
    Het doet zich alleen voor als het de default action is, immers bij alle overige heb je al een /PathInfo, dus incusief de slash.


    Wat ook mogelijk is, is om uit de Request de script-naam te halen op deze manier:
    Code:
    CellData := Format('<a href="'+ Request.ScriptName + '/GegInvoer?KlantGeg=%0:s">%0:s</a>',[CellData]);
    Dit heeft als voordeel dat je de code voor je cgi's kan gebruiken ongeacht de naamgeving en het maakt ook niet uit waar de Html bestand zich bevind als je het in een Html form zou gebruiken.

    Ik hoop dit je verder helpt - ben je er nog ToRrES
    Last edited by Anders; 01-Apr-03 at 18:04.
    Anders

    May your code compile!

  15. #15
    Originally posted by Anders
    Ik hoop dit je verder helpt - ben je er nog ToRrES
    een beetje, Bedankt ik ga dit ff uitzoeken!!!!

    groeten

Page 1 of 2 1 2 LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •