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

Username
  

Password
  





Search Forums

(Advanced Search)

Forum Statistics
» Members: 105,999
» Latest member: e39linkcom
» Forum threads: 2,433
» Forum posts: 11,393

Full Statistics

Online Users
There are currently 1007 online users.
» 3 Member(s) | 1001 Guest(s)
Applebot, Bing, Google, danghoangtranlong, e39linkcom, v79social01

Latest Threads
SSL Revisited
Forum: IntraWeb General Discussion
Last Post: rlebeau
10-19-2026, 09:24 PM
» Replies: 3
» Views: 482
SpinBox Button Size
Forum: IntraWeb General Discussion
Last Post: MikeComb
10-19-2026, 06:12 PM
» Replies: 0
» Views: 191
Rerendering CG Tab Contro...
Forum: IntraWeb General Discussion
Last Post: MikeComb
10-19-2026, 05:21 PM
» Replies: 0
» Views: 176
CSS in CGDevTools
Forum: IntraWeb General Discussion
Last Post: MikeComb
10-13-2026, 04:12 PM
» Replies: 2
» Views: 578
Help with TIWPaintBox
Forum: IntraWeb General Discussion
Last Post: EmoPal
10-13-2026, 08:44 AM
» Replies: 0
» Views: 336
KanBan like behaviour
Forum: IntraWeb General Discussion
Last Post: MJS@mjs.us
10-06-2026, 09:31 PM
» Replies: 6
» Views: 1,324
TContenthandler requires ...
Forum: IntraWeb General Discussion
Last Post: valmeras
10-02-2026, 04:14 PM
» Replies: 1
» Views: 836
TIWSummernote Issue
Forum: IntraWeb General Discussion
Last Post: Alexandre Machado
09-30-2026, 07:34 PM
» Replies: 1
» Views: 497
Reproducible IIS crash in...
Forum: IntraWeb General Discussion
Last Post: alex.trejo@tttnet.com.mx
09-21-2026, 05:33 PM
» Replies: 1
» Views: 858
WebApplication.IP change ...
Forum: IntraWeb General Discussion
Last Post: alex.trejo@tttnet.com.mx
09-21-2026, 05:31 PM
» Replies: 2
» Views: 1,003

 
  Could not load certificate error (SSL)
Posted by: Roman Bay - 07-04-2018, 04:23 PM - Forum: IntraWeb General Discussion - Replies (3)

Hello,

One of our customers has "Could not load certificate. error:00000000:lib(0):func(0):reason(0)" errors. 
They said that Web Server intermittently reports an exception stating that the certificates cannot be loaded (after stopping and restarting the Web Server on some occasions no exceptions are raised). 

IntraWeb version: 14.1.2

Please see attached exception file
.txt   WebServer_Logs.txt (Size: 117.63 KB / Downloads: 2)

I can not reproduce it on my PC. Has anybody ever encountered such a error?

Print this item

  IntraWeb setup and AV false positives
Posted by: Alexandre Machado - 07-04-2018, 07:58 AM - Forum: IntraWeb General Discussion - No Replies

Today we received 2 different support requests from users informing that their Antivirus software identified IW14.2.8.exe as a virus/trojan. Among the AV software we find Kapersky, Zone Alarm, Windows Defender and Symantec.

Kapersky is famous for its heuristic engine false positives, specially against binaries compiled by any Delphi version. Zone Alarm shares the same engine so whenever Kapersky reports something, Zone Alarm will do the same. (Un)Fortunately, Delphi is one of the few *real* programming languages left and that's why it is used by many virus creators  Tongue

We have reported the false positives to Microsoft and Symantec. We already have Symantec response, confirming that the report is a false positive, as follows:



In relation to submission 97436.

Upon further analysis and investigation we have verified your submission and, as such, the detection(s) for the following file(s) will be removed from our products:

    File name: iw14.2.8.exe
    MD5: F613B07B34D31EB7B5CDE221A95FFDFA
    SHA256: 53057B142527CFE5885CAF88802AFBD8EE44AAD3D78CC5B173AC79DFD746E4D5
    Note: Whitelisting is available by downloading a RAPID RELEASE indicated in the Further Information section below or via the next Live Update
Further Information:
Required RAPID RELEASE sequence >= 194141

The latest Rapid Release definition available here: ftp://ftp.symantec.com/AVDEFS/norton_antivirus/rapidrelease
To check the current sequence number of the Rapid Release definition: https://www.symantec.com/security_response/definitions/rapidrelease
More information on Rapid Release definitions can be found: https://support.symantec.com/en_US/article.TECH103326.html

If detection persists, please contact support:
* Norton: https://support.norton.com/sp/en/us/home/current/info
* SEP: https://support.symantec.com/en_US/endpoint-protection.54619.html

Decisions made by Symantec are subject to change if alterations to the Software are made over time or as classification criteria and/or the policy employed by Symantec changes over time to address the evolving landscape.

For more information on best practices to reduce false positives:
https://www.symantec.com/content/en/us/enterprise/white_papers/b-to_increase_downloads-instill_trust_first_WP.en-us.pdf


Sincerely,
Symantec Security Response
https://www.symantec.com/security-center


Print this item

Exclamation how to get XML via post
Posted by: morhous - 07-02-2018, 10:54 AM - Forum: IntraWeb General Discussion - Replies (1)

executeAjaxEvent(
        '&xml="'+OBJtoXML(arrayCombo4)+'"',
        null,
        "LOANFORM.addXML",
        false,
        null,
        false
    );
i set up my call back in background as addXML but reason is i getting this 

   

help me Smile

Print this item

  Problem with Indy TCPClient or IOHandler
Posted by: Ayodeji - 06-28-2018, 08:32 AM - Forum: Indy - Replies (3)

Hi Guys

We are having some bugs in our application after migrating our source code from delphi 7 to XE2. Indy 9 and  was used in delphi 7 and XE2 respectively. 

The application is dll encapsulated windows COM Object and hosted with GUI.  

We use TCPClient that continuously send and receive data from a device (Server) every 2 seconds. Sending of data to the server is done in the Main Thread while reading the response in another Thread. FIdClient.IOHandler.Write(sData + FSendRcvTerminator, TEncoding.ANSI) for sending the data and reading with FClient.IOHandler.ReadBytes(LBuffer, -1, false). The application do work perfectly for days or weeks without any problem but after a while all the processes in the Main Thread hanged and stop responding meanwhile the processes in the other Thread continue working. It has been very difficult for us to locate the course of this problem.  Sending data with FIdClient.IOHandler.Write(sData + FSendRcvTerminator, TEncoding.ANSI)  to the Server from the other Thread gets the hanged processes in Main Thread working again. We are actually not satisfy with this workaround and want to know the course. The same code written in delphi 7 and Indy 9 is working without any problem.

The only difference in our code is that with indy 9 we did not use IOHandler to write or read from the socket.  What are we doing wrong here!       
       
Thanks

Print this item

  evaluation mode
Posted by: clockon - 06-27-2018, 05:34 AM - Forum: IntraWeb General Discussion - Replies (6)

Hi
 
I am not able to get my new product out of evaluation mode. I have not installed the version that comes with delphi, I have searched for all iwlicense files, deleted the DCUs and still not working. I have created a new intraweb standalone project and I get the following, no reason for the evaluation mode is given. I also have source in the path, I have traced the call to 'SetLicenseKey' and it is setting the correct key and its only called once, please help.
 
 
 
My IntraWeb Application (Indy - x86)
Evaluation Mode
Reason:
IntraWeb Version: 15.0.6
Build Date: Jun 19, 2018
32-bit Server on 64-bit Windows
HTTP Server is active on port: 62380
--------------------- ---------------------

Print this item

  standalone in 15.0.6
Posted by: clockon - 06-27-2018, 02:08 AM - Forum: IntraWeb General Discussion - Replies (2)

Hi

i am trying to create/upgrade to the latest intraweb 15.0.6 from version 11.

We have a custom standalone server, now the references i have seen state to use the code:

IWStandAloneServer1.Start(TIWHTTPServerModule);

my problem is that there is no component TIWHTTPServerModule in the source or installation folders, im on ultimate with source.

has anyone setup a custom standalone server with v15?

Also none of the demos help as they are all for v14, otherwise i am going back a version.

Print this item

  Is it possible to use new version of Indy 10
Posted by: OldBob1938 - 06-26-2018, 11:30 PM - Forum: Indy - Replies (28)

I have a couple of large applications developed in C++Buiilder 2007 that use Indy 10.1.15.  They do work fine and I'm not interested in converting them to a newer version of Rad Studio.  One of the owners wants to change from using his current mail host to G-Suite, which puts me in a bit of a pickle.  The old embedded email part of the program was just plain.  No TLS/SSL.  I'm having the problem that many others faced with the program not being able to load SSL libraries.  I did put the appropriate dlls for OpenSSL 1.02 in the programs folder.  The program does seem to try to use these dlls, but something else is getting in the way. 

I've used WhichFailedToLoad() and get a strange response whether the dlls are in my program directory or not.  Here's what WhichFailedToLoad() returns

SSL_CTX_set_info_callback_indy
X509_STORE_CTX_get_app_data_indy
X509_get_notBefore_indy
X509_get_notAfter_indy
SSL_SESSION_get_id_indy
SSL_SESSION_get_id_ctx_indy
SSL_CTX_get_version_indy
SSL_CTX_set_options_indy
des_set_odd_parity
des_set_key
des_ecb_encryp

The IdOpenSSLSetLibPath isn't available in the Indy 10.1.15 to force the program to use the dlls from a specific directory.  It is available in the the version in Seattle, which I have.  But, I need to solve this problem with the code base that I have in BCB2007 ... it's a pretty big program.   I have thought of updating to a later version of Indy, but don't know what the effect would be on the overall program, or even if it is possible given that it's unicode.  The only part of Indy 10 that I'm using is the units related to sending mail. 

Other than that, I do need to solve the inability to load the OpenSSL dlls.    Can now load the dlls, but had to use dlls  from 096.  They worked, but I did have to tag the gmail account I was using as an insecure app.  I don't know how well that will work for G-Suite.  The G-Suite account is ready for use, but the customer is still trying to get a master password to their current webhost that will allow them to transfer their MX records.

Print this item

  Intraweb ISAPI DLL
Posted by: msgopala - 06-25-2018, 03:12 PM - Forum: IntraWeb General Discussion - Replies (2)

Seattle10
Intraweb 14.2.5
FastReports 5.0
TMS Intraweb Components
Raize 6.2.1

After deployment, I can access the dll page once. After closing out the page isnt accesible anymore. There is no error log or exception log.

I have set allowmultipleusersessions to true in the servercontroller.

Thanks in advance.

Print this item

  Re: 404 in Intraweb 14.2.3
Posted by: MJS@mjs.us - 06-23-2018, 05:12 PM - Forum: IntraWeb General Discussion - Replies (5)

>>>>Posted: Nov 3, 2017 7:52 AM    in response to: Gerrit Schurer
>>>>Gerrit Schurer wrote:
>>>>Context : Intraweb 14.2.3, Delphi Tokyo 10.2
>>>>My Intraweb application has the RestartExpiredSession set to true.

>>>In my previous Intraweb version this resulted in a restart of a
>>>>session whenever I restarted the standalone server application
>>>>and clicked anything in the old browser session (or waited for
>>>>an asynchronous timer event to happen). In 14.2.3 I get a 404
>>error ? Maybe it is a simple setting I missed ? Maybe I can get
>>>>around it or create a custom 404 page that does the restarting.
>>>>How can I create such a page ?

>>I'm also experiencing this but just on async events when the session
>>expires or is invalid from recycling the service.



This still appears to happen (using 14.2.7) but only on mobile Safari.  


To reproduce: 

  • Access the IW page.
  • Swipe away the browser.
  • Wait until the session ends.
  • Access the IW page again (without using a bookmark, Safari appears to cache the last accessed page).
  • In my case, I click past an initial CGDevTools dialog then get a 404.  Clicking on the IW 404 page fixes it as does accessing through a bookmark.
     
Can provide a link to demonstrate if needed.

Print this item

  idtcpserver network flood
Posted by: Madammar - 06-20-2018, 11:43 PM - Forum: Indy - Replies (1)

hi , i am facing some kind of ddos attack on my idtcpserver port

my firewall works really fine on my ubuntu machine to block those bad ips and drop there packets

but why tidtcpserver application gets unresponsive while such attack is happened ?

i dont have any none thread safe access in my code

here is the full server code


Code:
unit servrfrm;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.SyncObjs, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBaseComponent, IdComponent,
 IdCustomTCPServer, IdTCPServer, IdThreadSafe, IdYarn, idGlobal, IdTCPConnection,
 IdContext, IdSocketHandle, Vcl.StdCtrls, Vcl.ExtCtrls, DateUtils, StrUtils;


type
 TConnection = class(TIdServerContext)
 private
 IP: String;
 Connected: TDateTime;


 public
 OutboundCache: TIdThreadSafeStringList;
 //create connection
 constructor Create(AConnection: TIdTCPConnection; AYarn: TIdYarn; AList: TIdContextThreadList = nil); override;
 destructor Destroy; override;

 //sending methods
 procedure SendCommandWithParams(const Command: String);



 end;

type
 Trsrvfrm = class(TForm)
   TcpServer: TIdTCPServer;
   Panel1: TPanel;
   Edit1: TEdit;
   Button1: TButton;
   Button2: TButton;
   Memo1: TMemo;
   procedure TcpServerConnect(AContext: TIdContext);
   procedure TcpServerExecute(AContext: TIdContext);
   procedure Button1Click(Sender: TObject);
   procedure FormDestroy(Sender: TObject);
   procedure Button2Click(Sender: TObject);
   procedure TcpServerDisconnect(AContext: TIdContext);
 private
   procedure UpdateBindings;
   { Private declarations }
 public
   { Public declarations }
 end;

var
 rsrvfrm: Trsrvfrm;

implementation
uses constants;
{$R *.dfm}


{ TConnection }

constructor TConnection.Create(AConnection: TIdTCPConnection; AYarn: TIdYarn;
 AList: TIdContextThreadList);
begin
 inherited;
 OutboundCache := TIdThreadSafeStringList.Create;
end;

destructor TConnection.Destroy;
var
 Cache: TStringList;
 I: integer;
begin

 if OutboundCache <> nil then
 begin
   Cache := OutboundCache.Lock;
   try
     for I := 0 to Cache.Count - 1 do
       Cache.Objects[I].Free;
   finally
     OutboundCache.Unlock;
   end;
   OutboundCache.Free;
 end;



 inherited;
end;



procedure TConnection.SendCommandWithParams(const Command : String);
var
scmd : string;
begin

scmd := '1'+Command;


OutboundCache.Add(scmd);

end;





procedure Trsrvfrm.Button1Click(Sender: TObject);
begin
TcpServer.ContextClass := TConnection;

UpdateBindings;
TcpServer.Active := true;
end;

procedure Trsrvfrm.Button2Click(Sender: TObject);
begin
TcpServer.Active := False;
end;


procedure Trsrvfrm.UpdateBindings;
var
 Binding: TIdSocketHandle;
begin
 TcpServer.DefaultPort := StrToInt(Edit1.Text);
 TcpServer.Bindings.Clear;
 Binding := TcpServer.Bindings.Add;
 Binding.IP := '0.0.0.0';
 Binding.Port := StrToInt(Edit1.Text);
end;

procedure Trsrvfrm.FormDestroy(Sender: TObject);
begin
TcpServer.Active := False;
TcpServer.Destroy;
end;

procedure Trsrvfrm.TcpServerConnect(AContext: TIdContext);
var
CLIENTCONN: TConnection;
begin
CLIENTCONN := AContext as TConnection;
CLIENTCONN.Connection.IOHandler.MaxLineLength := Maxint;
CLIENTCONN.Connection.IOHandler.DefStringEncoding := IndyTextEncoding_UTF8;
CLIENTCONN.Connection.Socket.UseNagle := False;
CLIENTCONN.IP := AContext.Binding.PeerIP;
CLIENTCONN.Connected := Now;







end;

procedure Trsrvfrm.TcpServerDisconnect(AContext: TIdContext);
var
CLIENTCONN: TConnection;
begin
CLIENTCONN := AContext as TConnection;

end;

procedure Trsrvfrm.TcpServerExecute(AContext: TIdContext);
var
Connection: TConnection;
Command: String;
cmdhandle : string;
Startercommand : String;
Params: array [1 .. 200] of String;
Cache, OutboundCmds: TStringList;
ParamsCount, P: integer;
ReceiveParams: BOOLEAN;
I: integer;
DECODES : String;

begin

sleep(10);

Connection := AContext as TConnection;

// check for pending outbound commands...
OutboundCmds := nil;
try
Cache := Connection.OutboundCache.Lock;
try
if Cache.Count > 0 then
begin
OutboundCmds := TStringList.Create;
OutboundCmds.Assign(Cache);
Cache.Clear;
end;
finally
Connection.OutboundCache.Unlock;
end;

if OutboundCmds <> nil then
begin

for I := 0 to OutboundCmds.Count - 1 do
begin
AContext.Connection.IOHandler.Writeln(OutboundCmds.Strings[I],IndyTextEncoding_UTF8);
end;

end;

finally
if OutboundCmds <> nil then
begin
for I := 0 to OutboundCmds.Count - 1 do
begin
OutboundCmds.Objects[I].Free;
end;
end;
OutboundCmds.Free;
end;

// check for a pending inbound command...
if AContext.Connection.IOHandler.InputBufferIsEmpty then
begin
AContext.Connection.IOHandler.CheckForDataOnSource(100);
AContext.Connection.IOHandler.CheckForDisconnect;
if AContext.Connection.IOHandler.InputBufferIsEmpty then
begin
Exit;
end;
end;



Startercommand := AContext.Connection.Socket.ReadLn(IndyTextEncoding_UTF8);

Command := Startercommand;



if Command = '' then
begin
AContext.Connection.Disconnect;
Exit;
end;

ReceiveParams := False;


//Command Type

if Command[1] = '1' then // command with params
begin
Command := Copy(Command, 2, MaxInt);
ReceiveParams := true;
end;


if ReceiveParams = true then // params is incomming
begin
DECODES := Command;

ParamsCount := 0;
while (DECODES <> '') and (ParamsCount < 200) do
begin
Inc(ParamsCount);
P := Pos(Sep, DECODES);
if P = 0 then
Params[ParamsCount] := DECODES
else
begin
Params[ParamsCount] := Copy(DECODES, 1, P - 1);
Delete(DECODES, 1, P);
end;
end;
end;

cmdhandle := Params[1];



if cmdhandle = '' then
begin
AContext.Connection.Disconnect;
Exit;
end;



if cmdhandle = 'Ping' then
begin
Connection.SendCommandWithParams('pong' + sep);
end;


end;

end.




what could be the problem with in the code ?

Print this item