| Welcome, Guest |
You have to register before you can post on our site.
|
| 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
|
|
|
| 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;
)
|
|
|
| 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
|
|
|
| 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?
|
|
|
| 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;
|
|
|
| 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?
|
|
|
| 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.
|
|
|
| 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
|
|
|
|