Welcome, Guest
You have to register before you can post on our site.

Username
  

Password
  





Search Forums

(Advanced Search)

Forum Statistics
» Members: 86,022
» Latest member: worlphilbwingskyl1972
» Forum threads: 2,413
» Forum posts: 11,329

Full Statistics

Online Users
There are currently 557 online users.
» 2 Member(s) | 551 Guest(s)
Bing, Facebook, Google, Twitter, Sweetypatel01, worlphilbwingskyl1972

Latest Threads
TIWjQDBGrid erratic behav...
Forum: IntraWeb General Discussion
Last Post: Fabrizio Conti
Yesterday, 06:27 AM
» Replies: 6
» Views: 756
Need Help Integrating Mic...
Forum: IntraWeb General Discussion
Last Post: capheny
07-07-2026, 06:43 AM
» Replies: 0
» Views: 125
OpenSSL and concurrent re...
Forum: Indy
Last Post: kbriggs
07-05-2026, 02:41 PM
» Replies: 5
» Views: 424
Projeto Intraweb
Forum: IntraWeb General Discussion
Last Post: vonirpereira
07-03-2026, 06:51 PM
» Replies: 0
» Views: 173
Intraweb + Lazarus
Forum: IntraWeb Dúvidas Gerais
Last Post: vonirpereira
07-03-2026, 06:35 PM
» Replies: 0
» Views: 106
Image question on tiwjqdb...
Forum: IntraWeb General Discussion
Last Post: alex.trejo@tttnet.com.mx
07-01-2026, 12:19 AM
» Replies: 4
» Views: 4,361
CSS file not reloading af...
Forum: IntraWeb General Discussion
Last Post: Gustave
06-30-2026, 09:00 PM
» Replies: 0
» Views: 150
IW 16.2.0 Missing librari...
Forum: IntraWeb General Discussion
Last Post: Gregory_Twedt
06-24-2026, 04:40 AM
» Replies: 5
» Views: 910
VCL conversion
Forum: Delphi General Discussion
Last Post: tobenschain
06-20-2026, 05:00 AM
» Replies: 0
» Views: 168
TIWjQDBGrid changing UI
Forum: IntraWeb General Discussion
Last Post: BoostedCruiser
06-08-2026, 02:02 AM
» Replies: 36
» Views: 71,278

 
  IWFileUploader and drag&drop area
Posted by: cprmlao@hotmail.com - 10-18-2019, 08:05 PM - Forum: IntraWeb General Discussion - Replies (1)

Hi, 

I am trying enable IWFileUploader to show the drag&drop area without success with IW 15.
What properties do I have to set?

Regards,
Luiz

Print this item

  Input on ajax callbacks not working
Posted by: MJS@mjs.us - 10-17-2019, 09:05 PM - Forum: IntraWeb General Discussion - Replies (9)

I just implemented a new callback and all worked as designed on my dev machine.  I'm passing one parameter, in this case '06:00'.  Below is the callback output, looks normal:


[Image: callback-1.png]


After I moved this app to my server the callback seemed to stop working and this is the output:

  • The 1st entry looks ok but returns a 302, not 200.
  • Following 6 entries immediately come from the app and the parameters are munged starting with the ':' also returning a 302. 
[Image: callback-2.png]



Thinking it's a parsing issue I base64 encoded the parameter (then decode it to use it).

[Image: callback-3.png]



Now everything works.  Don't know if this is related to the other callback issues but maybe it's a clue.

Print this item

  PRevenitng a session from being created in OnBeforeDIspatch
Posted by: SWTwo6 - 10-17-2019, 04:28 PM - Forum: IntraWeb General Discussion - Replies (3)

Next dumb question:

In IWXI, I could set handled to true in the OnBeforeDispatch (after sending a bit of html to the response) and it would end the session there and then.

When I'm trying to do the same in IW XV, it *does* run the code, but seems to run the OnBeforeDispatch multiple times for a single connection, before either erroring or just rendering the front page of my app - there is no Handled property for me to tell it to stop.

What should I be using instead? I want to generate different html based on which subdomain was used to connect, and not have to redirect the URL

(IW XI code:

Responded := false;
    Response.StatusCode := 200;

    DirList := TStringList.Create;


  GetSubDirectories(IncludeTrailingPathDelimiter(ExtractFileDir(ParamStr(0)))
        + 'wwwroot\googlebot', DirList);

    if DirList.count > 0 then
      for x := 0 to DirList.count - 1 do
      begin
        if pos(UpperCase(ExtractFileName(ExcludeTrailingPathDelimiter
                (DirList[x]))), UpperCase(Request.Host)) > 0 then
        begin
          mystrings := TStringList.Create;
          mystrings.LoadFromFile(DirList[x] + '\index.html');
          Response.ContentType := 'text/html';
          Response.content := '';
          for y := 0 to mystrings.count - 1 do
          begin
            Response.content := Response.content + mystrings[y] + #10#13;
          end;
          Response.SendResponse;
          Responded := true;
          break;
        end
      end;

    if not Responded then
    begin

      Response.ContentType := 'text/html';
      Response.content := html;
      Response.SendResponse;

    end;


)

Print this item

  Access Violation when using Frames in IW15
Posted by: RichardS - 10-17-2019, 10:06 AM - Forum: IntraWeb General Discussion - Replies (3)

Hi - I am trying to track down an AV I get when using frames in an IW 15 application. These are inherited frames, and I have quite a number on the main IW form. The AV happens when a certain sequence of steps is followed.

The Delphi compiler simply tries to open IWApplication.pas when the error happens so of course I can't see quite what's going on, and if the error is in my construction or something in IW itself - my hunch is the latter, but perfectly possible I'm doing something wrong.

If I supply a zip of the source code with steps to reproduce, could somebody at AtoZed look at it for me? The application is confidential so would rather send it to you direct rather than upload here.

I've tried the latest IW 15.1.15 and on both Seattle and Rio IDEs with same results.

Thanks
Richard

Print this item

  Publishing IW XV through a TMG 2010 firewal
Posted by: SWTwo6 - 10-16-2019, 06:57 PM - Forum: IntraWeb General Discussion - Replies (4)

So, my latest adventure in thoroughly abusing Intraweb

I have a version in IW 11 that is published through a Microsoft Forefront 2010 TMG firewall, which works fine, but when I try to publish the same app produced in IW15 through the same firewall rules it's not working - the only js error I'm receiving is about the manifest.json file, but any buttons on my TMS grids - they just cause the website to hang, as if awaiting a response.

Does anyone know what is likely to have changed between IW XI and IW XV that I would need to update my firewall rules for?

Print this item

  TIWJQueryWidget: documentation and example
Posted by: lillux82 - 10-16-2019, 03:52 PM - Forum: IntraWeb General Discussion - Replies (3)

Hi everybody!
I'm searching on the web about documentation and examples of TIWJQueryWidget but i find nothing.
I need to display a barcode in a intraweb page, and i found this:
http://codeverge.com/embarcadero.delphi....ev/1049775
but i'm not be able to use tiwjquerywidget

thanks in advance

ps. sorry everybody for my english

Stefano

Print this item

  IW15 FileUplader and GetUploadedFileMimeType
Posted by: cprmlao@hotmail.com - 10-16-2019, 01:37 PM - Forum: IntraWeb General Discussion - Replies (20)

Hi,
Intraweb XIV iwfileuploader demo has  the next code. 
It seems 'GetUploadedFileMimeType' is contained inm IWFileCheck.pas not present in the folder.
What is the equivalent to 'GetUploadedFileMimeType' in IW 15?
Regards, Luiz

Code:
procedure TIWForm7.IWFileUploader5AsyncUploadCompleted(Sender: TObject;
  var DestPath, FileName: string; var SaveFile, Overwrite: Boolean);
var
  CurDir: string;
  MimeType: string;
begin
  // get the app path
  CurDir := TIWAppInfo.GetAppPath;

  MimeType := GetUploadedFileMimeType;

  // save in the same application directory, with the same name of the original file. Overwrite if it already exists.
  IWFileUploader5.SaveToFile(FileName, CurDir + FileName, True);

  // Inform IWFileUploader that we are taking care of file saving ourselves
  SaveFile := False;
end;

Print this item

  Error handling
Posted by: SWTwo6 - 10-16-2019, 12:16 PM - Forum: IntraWeb General Discussion - Replies (3)

In IntraWeb XI, I was able to use the URLReposnders to use a self-registered Error page, that I could then run code on. I'm trying to work out the best way to replicate this behaviour in IWXV

I don't want to use a static page or a template, because I want to run my own code on the page. I've tried using a TerminateAndRedirect on the OnException, but it doesn't appear to have any effect (it is being called, but the browser still gets sent to the Intraweb error page)

Can anyone point me in the right direction?

Print this item

  Minimal SSL TCPClient and server, VCL
Posted by: logihouse - 10-15-2019, 08:48 PM - Forum: Indy - Replies (6)

Minimal SSL TCPServer and client
I am using delphi version 10.3.1 .
No certificate, it is not mandatory.
No errormessages, but only rubbish received in ServerExecute. Works fine when UseSSL = false;
Any ideas?

Place a button on an empty form, and link it to Button1Click.

Code:
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, uIdContext, IdContext,
  IdServerIOHandler, IdSSL, IdSSLOpenSSL, IdBaseComponent, IdComponent,
  IdCustomTCPServer, IdTCPServer, Vcl.StdCtrls, IdIOHandler, IdIOHandlerSocket,
  IdIOHandlerStack, IdTCPConnection, IdTCPClient;

type
  TForm1 = class(TForm)
    Server: TIdTCPServer;
    Client: TIdTCPClient;
    cSSL: TIdSSLIOHandlerSocketOpenSSL;
    Button1: TButton;
    SSL: TIdServerIOHandlerSSLOpenSSL;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ServerExecute(AContext: TIdContext);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const usessl = false;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Client.Connect;
  Client.IOHandler.WriteLn('test');
  Client.Disconnect;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Server:= TIdTCPServer.Create;
  Server.DefaultPort := 443;
  Client:= TIdTCPClient.Create;
  Client.Host := 'Localhost';
  Client.Port := 443;
  Server.OnExecute := ServerExecute;
  if UseSSL then
  begin
    cSSL:= TIdSSLIOHandlerSocketOpenSSL.Create;
    SSL:= TIdServerIOHandlerSSLOpenSSL.Create;
    SSL.SSLOptions.Mode := sslmServer;
    SSL.SSLOptions.VerifyMode := [];
    SSL.SSLOptions.VerifyDepth  := 0;
    SSL.SSLOptions.SSLVersions := [sslvSSLv2..sslvTLSv1_2];
    TIdSSLIOHandlerSocketBase(cSSL).PassThrough := false;
    cSSL.SSLOptions.Mode := sslmClient;
    cSSL.SSLOptions.VerifyMode := [];
    cSSL.SSLOptions.VerifyDepth  := 0;
    cSSL.SSLOptions.SSLVersions := [sslvSSLv2..sslvTLSv1_2];    // Avoid using SSL}
    Server.IOHandler := SSL;   // TIdServerIOHandlerSSLOpenSSL
    Client.IOHandler := cSSL;  // TIdSSLIOHandlerSocketOpenSSL
  end;


  Server.Active := true;
end;

procedure TForm1.ServerExecute(AContext: TIdContext);
var s : string;
begin
  s :=  aContext.Connection.IOHandler.Alldata;
  s := s;
end;

end.

Print this item

  Warning from Datatables
Posted by: matija - 10-15-2019, 08:53 AM - Forum: IntraWeb General Discussion - Replies (4)

I create my HTML table (datatables.net) include IWLabel raw text

<table id="mytable" class="table table-hover table-striped table-condensed dt-responsive nowrap" width="100%" cellspacing="0">
...
</table>

I have in my HTML template {%mytable%} and this style:
<style>
.sunday {
  background-color: red !important;
}

</style>

After view IWLabel send (color row with red which are sunday):

WebApplication.CallBackResponse.AddJavaScriptToExecute
        ('$(document).ready( function () {'
        + 'var table = $("#mytable").DataTable({'
        + '"createdRow": function(row, data, dataIndex)'
        + '{ if (data[2] == "sun") {$(row).addClass("sunday");} }'
        + '});'
        + '}) ');


After AddJavaScriptToExecute get it:
DataTables warning: Non-table node initialisation (SPAN). For more information about this error, please see http://datatables.net/tn/2

Print this item