| Welcome, Guest |
You have to register before you can post on our site.
|
| Forum Statistics |
» Members: 86,262
» Latest member: tk999cc
» Forum threads: 2,413
» Forum posts: 11,329
Full Statistics
|
| Online Users |
There are currently 347 online users. » 0 Member(s) | 344 Guest(s) Applebot, Bing, Google
|
| Latest Threads |
TIWjQDBGrid erratic behav...
Forum: IntraWeb General Discussion
Last Post: Fabrizio Conti
07-14-2026, 06:27 AM
» Replies: 6
» Views: 783
|
Need Help Integrating Mic...
Forum: IntraWeb General Discussion
Last Post: capheny
07-07-2026, 06:43 AM
» Replies: 0
» Views: 139
|
OpenSSL and concurrent re...
Forum: Indy
Last Post: kbriggs
07-05-2026, 02:41 PM
» Replies: 5
» Views: 458
|
Projeto Intraweb
Forum: IntraWeb General Discussion
Last Post: vonirpereira
07-03-2026, 06:51 PM
» Replies: 0
» Views: 186
|
Intraweb + Lazarus
Forum: IntraWeb Dúvidas Gerais
Last Post: vonirpereira
07-03-2026, 06:35 PM
» Replies: 0
» Views: 113
|
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,381
|
CSS file not reloading af...
Forum: IntraWeb General Discussion
Last Post: Gustave
06-30-2026, 09:00 PM
» Replies: 0
» Views: 155
|
IW 16.2.0 Missing librari...
Forum: IntraWeb General Discussion
Last Post: Gregory_Twedt
06-24-2026, 04:40 AM
» Replies: 5
» Views: 941
|
VCL conversion
Forum: Delphi General Discussion
Last Post: tobenschain
06-20-2026, 05:00 AM
» Replies: 0
» Views: 171
|
TIWjQDBGrid changing UI
Forum: IntraWeb General Discussion
Last Post: BoostedCruiser
06-08-2026, 02:02 AM
» Replies: 36
» Views: 71,363
|
|
|
| IdTCPServer Freeze on Delphi |
|
Posted by: 3ddark - 04-18-2020, 08:30 PM - Forum: Indy
- Replies (9)
|
 |
Hello,
I did a test for IdTCPServer and Client.
The results differed slightly and were interesting.
TCPServer test on Delphi, after 1500+ client connected then freeze,
But lazarus is works fine
Same code same component(Indy10), different result!!!
Test PC Windows 10 64 Bit
Delphi 10.3 Community vs Lazarus 2.0.8 (fpc 3.0.4)
And Delphi 7 same result freeze(Thread creation error)
Code: //Server side code
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
IdContext, IdTCPServer, IdCustomTCPServer;
type
{ TForm1 }
TForm1 = class(TForm)
IdTCPServer1: TIdTCPServer;
ListBox1: TListBox;
procedure FormCreate(Sender: TObject);
procedure IdTCPServer1Connect(AContext: TIdContext);
procedure IdTCPServer1Disconnect(AContext: TIdContext);
procedure IdTCPServer1Execute(AContext: TIdContext);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);
var
List : TIdContextList;
begin
ListBox1.Items.BeginUpdate;
try
ListBox1.Items.Add(AContext.Binding.PeerIP +':'+ AContext.Binding.PeerPort.ToString);
finally
ListBox1.Items.EndUpdate;
end;
if IdTCPServer1.Active then
begin
List := IdTCPServer1.Contexts.LockList;
try
Form1.Caption := 'Server - Client : ' + List.Count.ToString;
finally
IdTCPServer1.Contexts.UnlockList;
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
IdTCPServer1.Active := True;
end;
procedure TForm1.IdTCPServer1Disconnect(AContext: TIdContext);
var
n1: Integer;
begin
n1 := ListBox1.Items.IndexOf(AContext.Binding.PeerIP +':'+ AContext.Binding.PeerPort.ToString);
if n1 > -1 then
ListBox1.Items.Delete(n1);
end;
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
data: string;
begin
data := AContext.Connection.IOHandler.ReadLn;
if data= 'E' then
AContext.Connection.Disconnect;
end;
end.
Code: //Client side code
unit Unit2;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, Vcl.StdCtrls;
type
TForm2 = class(TForm)
edtIP: TEdit;
edtPort: TEdit;
Button1: TButton;
Button2: TButton;
edtClient: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
a: Array[1..10000] Of TIdTCPClient;
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
var
I:integer;
begin
for I := 1 to StrToInt(edtClient.Text) do
begin
try
a[I] := nil;
a[I]:= TIdTCPClient.Create( NIL );
a[I].Host := edtIP.Text;
a[I].Port := StrToInt(edtPort.Text);
a[I].Connect;
a[I].IOHandler.WriteLn( 'main|ADDNEW|1234abcd|' + IntToStr(i) + ' |t2|t3|t4|t5|t6|t7|t8|NEW' );
Self.Caption:= 'Clients : ' + IntToStr(i);
Sleep(10);
Application.ProcessMessages;
except
end;
end;
end;
end.
|
|
|
| Bootstrap4 fileinput bug |
|
Posted by: Rassamaha78 - 04-18-2020, 08:26 PM - Forum: IntraWeb General Discussion
- Replies (23)
|
 |
Im use iwbootstrap4 + Bootstrap File Input library for upload files:
Code: procedure TFrameProductPicture.IWBS4File1CustomRestEvents0RestEvent(
aApplication: TIWApplication; aRequest: THttpRequest; aReply: THttpReply;
aParams: TStrings);
var
FileUpload: THttpFile;
begin
if aRequest.Files.Count > 0 then
begin
FileUpload := THttpFile( aRequest.Files[ aRequest.Files.Count - 1 ] );
FPictureFile := IWServerController.ContentPath +
UPLOAD_FOLDER + '\' +
TPath.GetGUIDFileName.ToLower +
ExtractFileExt( FileUpload.FileName );
FileUpload.SaveToFile( FPictureFile );
end;
aReply.WriteString('{"id": "1"}');
end;
Most JPG files load normally, but some JPG files, as well as ALL PNG files get corrupted after loading (only part of the image is loaded), here is an example of files BEFORE and AFTER uploading to the server. What could be the reason ?
IW version: 15.1.19
2bd0d041e0ef4632bf8e55d21ebc70a8.png (Size: 252.03 KB / Downloads: 10)
|
|
|
| None technical thread - how are you during COVID19 pandemic |
|
Posted by: Madammar - 04-18-2020, 08:47 AM - Forum: Indy
- Replies (2)
|
 |
I have no questions to ask i am just posting this thread to check on all of you during this pandemic COVID19. Specially @rlebeau how are you bro during this pandemic?
I wanted to thank you for all your efforts in helping everyone as possible as you can.
I have learned alot from you even when i knew nothing about delphi and from where to start with most basic things, i will never forget that.
Thank you bazillion times. for me its so rare to find a knowledgeable expert who teach without waiting any thing from his teaching and helping, you are great human being.
Thank you to every one who make a forum like this to make it easy to communicate and get help from experts in easy way.
Stay safe everyone, stay home hopefully this pandemic pass with no harm ♥️
|
|
|
| IntraWeb 15.1.20 - Server Error with ASPX |
|
Posted by: JohBer - 04-17-2020, 09:26 AM - Forum: IntraWeb General Discussion
- Replies (12)
|
 |
Hello,
I'm getting the below error when deploying my IW application on IIS. Is it a confirguration issue, or simply a bug in the ASPX-dlls included in 15.1.20?
![[Image: 4TDC969]](https://imgur.com/download/4TDC969)
Server Error
Full stack trace:
Code: [ArgumentException: Not a legal OleAut date.]
System.DateTime.DoubleDateToTicks(Double value) +5360760
IntraWeb.MainController.ProcessResponse(PacketReader aReader) +655
IntraWeb.MainController.ProcessAppMode() +112
IntraWeb.MainController.Index() +68
lambda_method(Closure , ControllerBase , Object[] ) +62
System.Web.Mvc.ActionMethodDispatcher.Execute(ControllerBase controller, Object[] parameters) +14
System.Web.Mvc.ReflectedActionDescriptor.Execute(ControllerContext controllerContext, IDictionary`2 parameters) +182
System.Web.Mvc.ControllerActionInvoker.InvokeActionMethod(ControllerContext controllerContext, ActionDescriptor actionDescriptor, IDictionary`2 parameters) +27
System.Web.Mvc.Async.<>c__DisplayClass42.<BeginInvokeSynchronousActionMethod>b__41() +28
System.Web.Mvc.Async.<>c__DisplayClass8`1.<BeginSynchronous>b__7(IAsyncResult _) +10
System.Web.Mvc.Async.WrappedAsyncResult`1.End() +50
System.Web.Mvc.Async.AsyncControllerActionInvoker.EndInvokeActionMethod(IAsyncResult asyncResult) +49
System.Web.Mvc.Async.<>c__DisplayClass39.<BeginInvokeActionMethodWithFilters>b__33() +58
System.Web.Mvc.Async.<>c__DisplayClass4f.<InvokeActionMethodFilterAsynchronously>b__49() +228
System.Web.Mvc.Async.<>c__DisplayClass37.<BeginInvokeActionMethodWithFilters>b__36(IAsyncResult asyncResult) +10
System.Web.Mvc.Async.WrappedAsyncResult`1.End() +50
System.Web.Mvc.Async.AsyncControllerActionInvoker.EndInvokeActionMethodWithFilters(IAsyncResult asyncResult) +49
System.Web.Mvc.Async.<>c__DisplayClass2a.<BeginInvokeAction>b__20() +24
System.Web.Mvc.Async.<>c__DisplayClass25.<BeginInvokeAction>b__22(IAsyncResult asyncResult) +99
System.Web.Mvc.Async.WrappedAsyncResult`1.End() +50
System.Web.Mvc.Async.AsyncControllerActionInvoker.EndInvokeAction(IAsyncResult asyncResult) +44
System.Web.Mvc.<>c__DisplayClass1d.<BeginExecuteCore>b__18(IAsyncResult asyncResult) +14
System.Web.Mvc.Async.<>c__DisplayClass4.<MakeVoidDelegate>b__3(IAsyncResult ar) +16
System.Web.Mvc.Async.WrappedAsyncResult`1.End() +50
System.Web.Mvc.Controller.EndExecuteCore(IAsyncResult asyncResult) +55
System.Web.Mvc.Async.<>c__DisplayClass4.<MakeVoidDelegate>b__3(IAsyncResult ar) +16
System.Web.Mvc.Async.WrappedAsyncResult`1.End() +50
System.Web.Mvc.Controller.EndExecute(IAsyncResult asyncResult) +45
System.Web.Mvc.Controller.System.Web.Mvc.Async.IAsyncController.EndExecute(IAsyncResult asyncResult) +10
System.Web.Mvc.<>c__DisplayClass8.<BeginProcessRequest>b__3(IAsyncResult asyncResult) +25
System.Web.Mvc.Async.<>c__DisplayClass4.<MakeVoidDelegate>b__3(IAsyncResult ar) +16
System.Web.Mvc.Async.WrappedAsyncResult`1.End() +50
System.Web.Mvc.MvcHandler.EndProcessRequest(IAsyncResult asyncResult) +28
System.Web.Mvc.MvcHandler.System.Web.IHttpAsyncHandler.EndProcessRequest(IAsyncResult result) +9
System.Web.CallHandlerExecutionStep.System.Web.HttpApplication.IExecutionStep.Execute() +9871377
System.Web.HttpApplication.ExecuteStepImpl(IExecutionStep step) +48
System.Web.HttpApplication.ExecuteStep(IExecutionStep step, Boolean& completedSynchronously) +159
If possible, could the intraweb ASPX-DLL source code be made available to be able to have control over these kind of deployment errors?
Best regards,
Johan
|
|
|
| pooled Connections usage |
|
Posted by: dcazarez - 04-13-2020, 07:40 PM - Forum: IntraWeb General Discussion
- Replies (1)
|
 |
Could you please point me to the best practice on using pooled connections?.
The use of LockDataModule and UnlockDatamodule.
I have an iw15.1.9+Delphi XE7 + FireDac + SQL Server app working with this scenario and we are facing frequent htto error 500 on IIS 8.5 (ISAPI) with very small load of users (10 concurrent).
We saw that sometimes the session data from different users were mixed so we discovered that we where using incorrectly the tiwPoolDatamodule object on serverController.
We are using grids and db aware controls so we could not simply Lock and Release on the same procedure. We decided not tu add the DB Query/Connection Controls to UserSession and use pooled connections due to the scalability on connectios that we are specting to have, 300 concurrent connections.
We use a LockDatamodule on every single entry event point and an UnLockDatamodule on the AfterRender+OnDestroy event of every single form.
This is not working, we are leaving some Datamodules blocked so we are consuming all of the datamodules available and ending with no more pool connections available error.
I think this is a very complex problem with multiple problems on one text but I think is due to the way we are using the pooled connections.
thank you in advance for any advice
|
|
|
| Application that runs under 15.1.17 stop working under 15.1.19 |
|
Posted by: David1 - 04-09-2020, 01:56 PM - Forum: IntraWeb General Discussion
- Replies (1)
|
 |
Hello,
I am working using Delphi 10.3.3 Upd 3 on Windows 10 64bit
Due to some problems about opening CGDevTools dialogs after deployed the application as an ISAPI extension I tried to update my IW from 15.1.17 to 15.1.19.
Using 15.1.17 everything worked fine a part problems opening dialogs.
Under 15.1.19 the application stop running at the begining.
In the TIWUserSession.IWUserSessionBaseCreate I instatiate several data module to permit to access them as a UserSession property:
Code: Connection.Params.Values['Server'] := '(local)';
FFilialiDataModule := TFilialiDataModule.Create(Self);
FListiniDataModule := TListiniDataModule.Create(Self);
FPromozioniDataModule := TPromozioniDataModule.Create(Self);
FUtentiDataModule := TUtentiDataModule.Create(Self);
When I run the program I get an error at the second data module (FListiniDataModule) create call.
The error is about the FireDAC connection on a TFDQuery, which resides in the data module, is not defined.
The connection of the query point to the UserSession connection and the module is correctly in the use clause of the data module.
I tried to explicitly set it in code but nothing changed.
The same code runs well using IW 15.1.17 
Do you have any advice about how to solve this error?
Thank you,
Davide
|
|
|
| Delphi 10.3 - Enable application to send emails without email client |
|
Posted by: joceravolo - 04-08-2020, 06:22 PM - Forum: Indy
- Replies (5)
|
 |
Hi,
I want to make an application send different emails using tidSMTP.
The tests I am doing using Yahoo or Gmail to send the email it not working but I don't know why.
I don't get an error, but the test email does not work.
The message that pops up is Connection close graciously.
I am new to this and I haven't found any documentation on how to approach this.
Thanks in advance,
Here's the code:
With IdSSLIOHandlerSocketOpenSSL1 do
begin
Destination := dbeSMTPServer.Text + ':' + dbeSMTPPort.Text;
Host := dbeSMTPServer.Text;
MaxLineAction := maException;
Port := StrToInt(dbeSMTPPort.Text);
SSLOptions.Method := sslvTLSv1;
SSLOptions.Mode := sslmUnassigned;
SSLOptions.VerifyMode := [];
SSLOptions.VerifyDepth := 0;
end;
//SETTING SMTP COMPONENT DATA //
IdSMTP.Host := dbeSMTPServer.Text;
IdSMTP.Port := StrToInt(dbeSMTPPort.Text);
IdSMTP.Username := dbeSMTPUser.Text;
IdSMTP.Password := dbeSMTPPassword.Text;
IdSMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
IdSMTP.AuthType := satDefault;
//IdSMTP.UseTLS := utUseExplicitTLS;
// SETTING email MESSAGE DATA //
IdMessage.Clear;
// add recipient list //
with IdMessage.Recipients.Add do
begin
Name := dbeFullName.Text;
Address := dbeEmail.Text;
end;
IdMessage.From.Address := dbeEmail.Text;
IdMessage.Subject := 'Email Test From Sales Manager';
IdMessage.Body.Add('Hi ' + dbeFullName.Text + ',' + chr(13) + chr(13) +
'If you received this email, the configuration of the email for the user ' + dbeUsername.Text +
' is correct!');
IdMessage.Priority := mpHigh;
try
IdSMTP.Connect();
IdSMTP.Send(IdMessage);
ShowMessage('Email sent');
IdSMTP.Disconnect();
except on e:Exception do
begin
ShowMessage(e.Message);
IdSMTP.Disconnect();
end;
end;
|
|
|
| Migration Intraweb New Version |
|
Posted by: Rolphy Reyes - 04-06-2020, 04:32 PM - Forum: IntraWeb General Discussion
- Replies (4)
|
 |
Hi!
We had the Intraweb version 14.0.47 and now we're trying to migrate to new Intraweb 15.1.19.
The application (s) use ADO for connecting to the database. This was working good, despite the bad practice that we have implemented that each form has a lot of ADOQuery component.
This is the actual configuration:
1.- Usersession has the ADOConnection and a bunch of TADOQuery component.
2.- A lot of forms with a lot of TADOQuery component.
It was working.
Now after the installation of Intraweb 15.1.19, now we get this error Missing Connection or ConnectionString. Nothing have changed, how can we solve this problem???
TIA
|
|
|
| Loading Page?? |
|
Posted by: ShaneStump - 04-04-2020, 01:24 PM - Forum: IntraWeb General Discussion
- Replies (2)
|
 |
Howdy All!
First, I hope everyone and their families are safe during this worldwide pandemic.
I keep adding more and more overhead to my UserSession when it is initially created (I have to load the data BEFORE the first main intraweb page is created).
I need to show a page telling the user that I am loading their data and to please wait.
Where / how do I show a page in the Server Controller while the usersession is being 'created'?
I am guessing I need to 'delay' the data loading in my UserSession when it is first created and show a loading page and then continue data loading?!!?
Thanks in advance,
Shane
|
|
|
|