| Welcome, Guest |
You have to register before you can post on our site.
|
| Latest Threads |
How to terminate HTTP Thr...
Forum: Indy
Last Post: rlebeau
7 hours ago
» Replies: 5
» Views: 318
|
VCL conversion
Forum: Delphi General Discussion
Last Post: marktuan
08-07-2026, 01:20 PM
» Replies: 0
» Views: 369
|
Looking for UI Design Tip...
Forum: Delphi General Discussion
Last Post: chrisjordon232
08-06-2026, 05:17 AM
» Replies: 0
» Views: 91
|
Simply convert PeerIp to ...
Forum: Indy
Last Post: DidierMenant
08-04-2026, 03:50 PM
» Replies: 2
» Views: 249
|
New CGDevTools build is a...
Forum: CGDevTools
Last Post: lfeliz
08-04-2026, 12:03 AM
» Replies: 2
» Views: 1,410
|
IW 16.2.0 Missing librari...
Forum: IntraWeb General Discussion
Last Post: JuergenS
07-31-2026, 09:44 AM
» Replies: 6
» Views: 1,322
|
Datatables question
Forum: IntraWeb General Discussion
Last Post: Alexandre Machado
07-28-2026, 04:34 AM
» Replies: 2
» Views: 308
|
CSS file not reloading af...
Forum: IntraWeb General Discussion
Last Post: CharlieDunn
07-27-2026, 08:27 PM
» Replies: 1
» Views: 490
|
Intraweb components missi...
Forum: IntraWeb General Discussion
Last Post: valmeras
07-27-2026, 03:18 PM
» Replies: 3
» Views: 438
|
Image question on tiwjqdb...
Forum: IntraWeb General Discussion
Last Post: alex.trejo@tttnet.com.mx
07-17-2026, 05:18 PM
» Replies: 6
» Views: 4,933
|
|
|
| TIWDBEdit and AutoEditable |
|
Posted by: PaulWeem - 09-10-2020, 01:03 PM - Forum: IntraWeb General Discussion
- Replies (5)
|
 |
Hello,
I'm using IW15.2.15 on Delphi 10.3.3.
It seems like TIWDBEdit is not respecting AutoEditable setting.
Even when a dataset is not in editmode, the value in TIWDBEdit can be changed and is saved in the database.
Can you please check and confirm?
Regards, Paul
It seems this occurs only when using a DataModule and the DataSource is on the Datamodule.
When the DataSource is on the same form as the TIWDBEdit, everything works as expected.
|
|
|
| AV running demo XII/Delphi/HTMLEditor |
|
Posted by: jeroen.rottink - 09-09-2020, 10:42 AM - Forum: IntraWeb General Discussion
- Replies (3)
|
|
I was curious about the /$/iwedit feature but can't find info about it.
There are however demos using this feature:
- XII/Delphi/HTMLEditor
- XII/Delphi/IWWiki
After making small changes to the first project to make it compile, I get an AV hitting the button to edit the index.html file.
Should this feature still work under IW15?
|
|
|
|
| Problem with getting session list |
|
Posted by: martin.andersen@amesto.dk - 09-09-2020, 09:40 AM - Forum: IntraWeb General Discussion
- Replies (8)
|
|
Hi!
In order to let some forms be terminated I get the session list with; gSessions.GetList(alst); as one of the last things in the event IWServerControllerBaseNewSession() in the server control unit
But it will almost always not work the second time around, the first time is OK.
I've tried to push it to a later time, when the form is up and running (with a timer 5000), but it is the same behaviour.
Thx Martin
Code: procedure TIWServerController.CleanUpForms(ASession: TIWApplication);
var
alst: TStringList;
aid: string;
app: TIWApplication;
exp, al: boolean;
ok: boolean;
cnt: integer;
begin
if _LogEnabled then
_Log('Trying to clean-up session list');
try
ok:=false;
cnt:=0;
repeat
alst:=TStringList.Create;
try
gSessions.GetList(alst);
ok:=true;
except
Inc(cnt);
if cnt = 100 then begin
if _LogEnabled then
_Log('**Warning: Could not retrieve session list from IntraWeb platform');
Exit;
end;
Sleep(50);
end;
until ok;
if _LogEnabled then begin
if cnt > 0 then
_Log('Retry count is: ' + IntToStr(cnt));
_Log('Number of sessions currently in the list: ' + IntToStr(alst.Count));
end;
for aid in alst do begin
if aid <> ASession.AppID then begin
app:=gSessions.LookupAndLock(aid, exp, al);
if Assigned(app) and not exp then begin
if app.Name = ASession.Name then begin
if _LogEnabled then
_Log('Session "' + app.AppID + '" will be terminated');
app.Unlock;
app.Terminate;
app.Free;
end else begin
app.Unlock;
end;
end;
end;
end;
finally
alst.Free;
end;
if _LogEnabled then
_Log('Number of sessions (from gSessions): ' + IntToStr(gSessions.Count));
end;
|
|
|
|
| The visibility of variables |
|
Posted by: Сергей Александрович - 09-09-2020, 02:52 AM - Forum: IntraWeb General Discussion
- Replies (2)
|
|
Please help me. I can't figure out how to see (use) the variable described in the program in a JavaScript script. For example:
Public
mTextToPrint: String;
.....
procedure TfmViewCheck.IWAppFormShow(Sender: TObject);
begin
mTextToPrint := 'Текст для печати';
end;
язык JavaScript :
alert (mTextToPrint); - does not work
|
|
|
|
| The Ultimate Guide for using indy with ssl on other platforms! |
|
Posted by: Ahmed Sayed - 09-03-2020, 08:48 PM - Forum: Indy
- No Replies
|
|
I know that I discussed this before in other forums but I can't get a tutorial on how to do things exactly regarding using Indy clients with ssl. On windows it is easy but on other platforms it is a bit tricky since there are a lot of API and versions changes to android or iOS. I searched this a lot on stackoverflow or Idera forums but I can't get a step by step example.
For instance on android I know there is BoringSSL now when was it supported and on which android version OpenSSL won't work. I know that there is a away to trick the OS to load OpenSSL files for indy but this work on new android versions as well but only old versions.
And what About linux does it use the same dlls?
|
|
|
|
| Indy 10 + OpenSSL: error:140A90F1:lib(20):func(169):reason(241) |
|
Posted by: ZGabrovski@gmail.com - 09-03-2020, 09:55 AM - Forum: Indy
- Replies (7)
|
|
I have a problem with OpenSSL libraries (libeay32.dll and ssleay32.dll), version 1.02.u (but the same issue with older releases), Windows 64, both Embarcadero Delphi 10.3 Rio and Lazarus 2.1 (FPC 3.3.1) - from the trunk.
The problem is in my multi-threading application, which uses TIdHTTP.Get() for consuming data from a REST api (using SSL/TLS) and picture download function:
Code: begin
Result := TMemoryStream.Create;
Http := TIdHttp.Create(nil);
IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
IOHandler.SSLOptions.SSLVersions := [sslvSSLv2, sslvSSLv23, sslvSSLv3, sslvTLSv1,sslvTLSv1_1,sslvTLSv1_2];
Request := TIdHTTPRequest.Create( Http );
Request.UserAgent := UserAgent;
HTTP.Request := Request;
HTTP.IOHandler := IOHandler;
try
try
ii := 0;
repeat
Result.Position := 0;
Http.Get(AURL, Result);
Result.Position := 0;
Result.read( Buffer, 20 );
Inc(ii);
until CheckValidPicture( Buffer )or (ii>2);
if (ii>2) then
Result.Clear;
Result.Position := 0;
except
// Just in case - second try
try
ii := 0;
repeat
Result.Position := 0;
Http.Get(AURL, Result);
Result.Position := 0;
Result.read( Buffer, 20 );
Inc(ii);
until CheckValidPicture( Buffer ) or (ii>2);;
if (ii>2) then
Result.Clear;
Result.Position := 0;
except
if (ii>2) then
Result.Clear;
end;
end;
finally
Http.DisposeOf;
Request.DisposeOf;
IOHandler.DisposeOf;
end;
When I am executing the code for a first time, everything is OK.
But, on second code execution(in other thread), I received the following exception core:
Error creating SSL context:error:140A90F1:lib(20):func(169):reason(241)
in HTTP.Get method.
So after some debug in Indy sources, I found that the problem comes in execution of method "SSL_CTX_new" in unit IdSSLOpenSSL, line 3156:
Code: // create new SSL context
fContext := SSL_CTX_new(SSLMethod);
if fContext = nil then
EIdOSSLCreatingContextError.RaiseException(RSSSLCreatingContextError);
end;
//set SSL Versions we will use
After some google research, I found this:
https://curl.haxx.se/mail/lib-2018-07/0057.html
and modify Indy code like described:
Code: // create new SSL context
fContext := SSL_CTX_new(SSLMethod);
if fContext = nil then begin
OpenSSL_add_all_digests;
fContext := SSL_CTX_new(SSLMethod);
if fContext = nil then
EIdOSSLCreatingContextError.RaiseException(RSSSLCreatingContextError);
end;
//set SSL Versions we will use
and now everything works fine.
Is this OK?
and if it is, how to modify Indy source code ( is there some bug tracker or whatever, to create issue)?
|
|
|
|
| Error 1053: When starting a new service |
|
Posted by: TiredDev - 09-02-2020, 05:03 PM - Forum: IntraWeb General Discussion
- Replies (2)
|
|
We use several AWS servers, all the same configuration. On one of them we can start around 20 services with no problem. But when we try to add one more we instantly get the
Error 1053: [i]The service did not respond to the start or control request in a timely fashion[/i]
We've added a lengthier time out but that didn't help. Didn't think it would as the error comes up right away. Now, If I stop one of the services, and try to start the one that previously failed, it comes up just fine. So it behaves like there is a limit. AWS say they have no such limit. Plus, we have quite a few more running on other servers with no such problem.
Any ideas?
IntraWeb 14.1.14
2012 Server R2
|
|
|
|
|
