Hi All,

I saw a video of how to do a ping in an Embarcadero C++ builder VCL form. But when I try it on an FMX form, the PING function does not exist.

Is PING in FMX, in the works? or is there a work around or an upgrade maybe?

Thanks,

Scotty.

Hi,

could please someone show example how to create modal dialog in Bootstrap4? I was using them a lot in Bootstrap 3 without problems (with TIWBSModal), but with Bootstrap 4 I'm struggling without any success.

Thanks,
Bostjan

My case:

Define IWServerControllerBaseConfig

with THandlers.Add('', 'main', TContentForm.Create(TMainForm)) do
  begin
    CanStartSession := true;
    RequiresSessionStart := false;
end;

with THandlers.Add('', 'help', TContentForm.Create(THelpForm)) do
  begin
    CanStartSession := true;
    RequiresSessionStart := false;
end;

I have in HelpForm Download Button for my PDF.

procedure DownloadButtonClick(Sender: TObject) ;
begin
     WebApplication.SendFile('My.pdf', true, '','');
     WebApplication.GotoURL('/main');
end;

OnClick -> ERROR Exception error raised, with message : Reply type already set.

My case:  

with THandlers.Add('', 'form1', TContentForm.Create(TForm1)) do
  begin
    CanStartSession := true;
    RequiresSessionStart := false;
 end;

with THandlers.Add('', 'form2', TContentForm.Create(TForm2)) do
  begin
    CanStartSession := true;
    RequiresSessionStart := false;
 end;

Both Forms have mastertemplate.html. I this template dynamic Javascript in div create Bootstrap mega menu depending of language user. 
mastertemplate.html <div id="menu"></div>  

WebApplication.CallBackResponse.AddJavaScriptToExecuteAsCDATA fill this div with timer in tform1 and tform2. This work. I can not refresh this template OnCreate or OnShow thats why timer in form.
<div id="menu">
<ul>
      <li><a href="form1">Form1</a></li>
      <li><a href="form2">Form2</a></li>
</ul>
</div>

RefreshTemplate function is define in UserSession and run in timer individual form.

If i have open Form1 and click again link to form1 then load mastertemplate empty div for menu!

Is a change only refresh mastertemplate for all forms?

After recent update to 15.2.37 (from last known working version 15.2.29), generated HTML looks like this where '<iwbspath>' insertion renders the page invalid.

<link href="/$/css/IWNotify__952076135.css" rel="stylesheet" type="text/css"/>
<link href="/select2.min.css" rel="stylesheet" type="text/css"/>
<link href="/<iwbspath>/bootstrap-3.4.1/css/bootstrap.min.css" rel="stylesheet" type="text/css"/>
<link href="/<iwbspath>/iwbs.css" rel="stylesheet" type="text/css"/>
<link href="/<iwbspath>/dyntabs/bootstrap-dynamic-tabs.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" nonce="8ICdNy15+TwfRwZIu5EvyHSodS4">

I guess "/<iwbspath>/" comes from a global variable, but which global variable and where should it be updated; In form OnCreate or servercontroller OnConfig?

Hello,

1.
with the TIdHTTP i has problems on Rest- Server. Sends the Server on Bad Request (400, 404) the Client doesn’t received the ResponseContent.

I look and found a little workaround. 

I advanced IdHttp.pas

Definition:
TIdCustomHTTP = class(TIdTCPClientCustom)
private
  FRestMode: Boolean;  //Add
  procedure SetRestMode(AValue: Boolean);  //Add

public
  property RestMode: Boolean read FRestMode write SetRestMode; //Add 


Implementation:
procedure TIdCustomHTTP.SetRestMode(AValue: Boolean); //Add
begin
  if FRestMode=AValue then Exit;
  FRestMode:=AValue;
  if FRestMode then begin
    HTTPOptions:= HTTPOptions + [hoNoProtocolErrorException];
  end else begin
    HTTPOptions:= HTTPOptions - [hoNoProtocolErrorException];
  end;
end;

function TIdHTTPProtocol.ProcessResponse(AIgnoreReplies: array of Int16): TidHTTPWhatsNext;

else begin  //From case
  if not FHttp.FRestMode then begin //Add
    CheckException;
    Result := wnJustExit;
    Exit;
  end; //Add
end;

maybe that will help the users too


2.
I have seen, you're working on Indy OpenSSL 1.1.1, very nice, thanks.

My question. When will the new Indy library be added to the Lazarus library.


Thanks for support.

Terminate my session with 

GGetWebApplicationThreadVar.Terminate('<!DOCTYPE html><html><head>...</head><body>... <a href="https://mypage.com">Re-Login</a> ...</body></html>');

I this command i have <a href> link for Re-Login my page

I dont want  this https://... i my href! Is not flexible. If set href="#" i get https://mypage.com/$/temp/eehrtbdfiojgt when if terminate.

How set href?

Hi guys,

there is a new IntraWeb update available for download, version 15.2.37.

This version includes support to RAD Studio/Delphi/C++Builder 11 Alexandria, just released by Embarcadero. BTW, Delphi 11 is looking good!

https://www.atozed.com/2021/09/intraweb-15-2-37/

Enjoy! 

When can Intraweb support for Delphi 11 be expected?

thanks...

Hi at all,
I have this situation: I have a link like this (in a tag) http://127.0.0.1:8888/Curriculum/KeyNumb...r&DaHome=1. 
I have registered an handler in this way
with THandlers.Add ('/Curriculum/', '', TContentForm.Create (TBSCurriculumCandidatoSingoloForm)) do
begin
  CanStartSession: = True;
  RequiresSessionStart: = False;
end;
so the /Curriculum/ display TBSCurriculumCandidatoSingoloForm form.
When clicked link http://127.0.0.1:8888/Curriculum/KeyNumb...r&DaHome=1 the form is displayed but the link in the address bar change like this: http://127.0.0.1:8888/hkn6AtmCEulz039mSC...urriculum/ this part KeyNumber-Surname-Name.html?CurriculumKey=KeyNumber&DaHome = 1 is deleted.
Is it possible to mantain all url like original (http://127.0.0.1:8888/Curriculum/KeyNumb...r&DaHome=1) for search engines?

Thank you

Andrea
P.s : i use intraweb 15.2.31