| Welcome, Guest |
You have to register before you can post on our site.
|
| Online Users |
There are currently 360 online users.
» 1 Member(s) | 355 Guest(s)
Applebot, Bing, Google, Yandex, win96jili
|
| Latest Threads |
IW 16.2.0 Missing librari...
Forum: IntraWeb General Discussion
Last Post: Gregory_Twedt
06-24-2026, 04:40 AM
» Replies: 5
» Views: 702
|
VCL conversion
Forum: Delphi General Discussion
Last Post: tobenschain
06-20-2026, 05:00 AM
» Replies: 0
» Views: 103
|
TIWjQDBGrid changing UI
Forum: IntraWeb General Discussion
Last Post: BoostedCruiser
06-08-2026, 02:02 AM
» Replies: 36
» Views: 70,569
|
TIWjQDBGrid erratic behav...
Forum: IntraWeb General Discussion
Last Post: Fabrizio Conti
06-04-2026, 09:14 AM
» Replies: 3
» Views: 526
|
Access Violation When Val...
Forum: IntraWeb General Discussion
Last Post: Alexandre Machado
06-03-2026, 08:47 AM
» Replies: 2
» Views: 544
|
Bootstrap5
Forum: IntraWeb General Discussion
Last Post: geraldtatum
06-02-2026, 06:24 AM
» Replies: 1
» Views: 440
|
weakpackageunit contains ...
Forum: IntraWeb General Discussion
Last Post: rlebeau
05-26-2026, 04:56 PM
» Replies: 4
» Views: 593
|
Custom 404 handler
Forum: IntraWeb General Discussion
Last Post: CfawesDwale
05-21-2026, 08:02 AM
» Replies: 0
» Views: 278
|
PopUp Menu
Forum: IntraWeb General Discussion
Last Post: alex.trejo@tttnet.com.mx
05-13-2026, 04:35 AM
» Replies: 4
» Views: 8,243
|
Image question on tiwjqdb...
Forum: IntraWeb General Discussion
Last Post: alex.trejo@tttnet.com.mx
05-13-2026, 03:32 AM
» Replies: 3
» Views: 4,149
|
|
|
| Could not load root certificate |
|
Posted by: JuergenS - 11-28-2018, 11:20 AM - Forum: IntraWeb General Discussion
- Replies (5)
|
 |
Hello,
I have a problem with loading my certificates with the indy server.
If i link my application with 64 bit static libraries i receive this exception message (EidOSSLLoadingCRootCertError) at startup:
Could not load root certificate.
error:00000000:lib(0):func(0):reason(0)
Working with 32/64 bit dynamic packages and 32 bit static libraries is OK.
Startup with HTTP.SYS is OK, but i can't open my website with my self signed certificate by any browser.
This are the linked libraries:
#ifdef USEPACKAGES
#pragma message "Link with packges"
#pragma link "IndyCore.bpi"
#pragma link "IndySystem.bpi"
#pragma link "IndyProtocols.bpi"
#pragma link "Intraweb_15_D10_2.bpi"
#elif _WIN64
#pragma message "Link with static libraries (64 Bit)"
#pragma link "IndyCore.a"
#pragma link "IndySystem.a"
#pragma link "IndyProtocols.a"
#pragma link "Intraweb_15_D10_2.a"
#elif _WIN32
#pragma message "Link with static libraries (32 Bit)"
#pragma link "IndyCore.lib"
#pragma link "IndySystem.lib"
#pragma link "IndyProtocols.lib"
#pragma link "Intraweb_15_D10_2.lib"
#endif
C++Builder 10.2.3
Intraweb 15.0.14
Do i need any other 64 bit libraries or anything else ?
Best regards
Juergen
|
|
|
| Property LockSessionTimeout does not exist |
|
Posted by: pvanwyk - 11-27-2018, 02:21 PM - Forum: IntraWeb General Discussion
- Replies (3)
|
|
We are compiling an existing project with Intraweb 15 (using RAD Studio v 10.2.3) and get the following error when trying to run the executable ...
"Error reading IWServerController.LockSessionTimeout: Property LockSessionTimeout does not exist"
When inspecting theServerController form properties, this property does exist.
|
|
|
|
| Skipped Methods in generated Code |
|
Posted by: Flo1983 - 11-27-2018, 09:45 AM - Forum: CrossTalk General Discussion
- Replies (3)
|
|
Hello,
I want to generate Code (CrossTak 2.0.27, licenced) from a .Net-Dll for my Delphi application (Delphi Tokyo 10.2). After I have generated the Code, serveral methods are missing.
The report which is shown after the code was generated says that methods were skipped. For example: "Method: getTest, skipping, Parameter Type,DateTime&".
Can anybody tell what I'm doing wrong?
Thank you very much!
Best regards
Florian
|
|
|
|
| Delphi 10.3 |
|
Posted by: cyracks - 11-26-2018, 09:50 PM - Forum: IntraWeb General Discussion
- Replies (1)
|
|
Hello,
today I installed Delphi 10.3 and I see Intraweb is not part of default install.
Can you please explain what is the reason for that ?
Regards,
Tomaž
|
|
|
|
| OnAsyncMouseMove event of IWImage |
|
Posted by: Stéphane - 11-23-2018, 04:36 PM - Forum: IntraWeb General Discussion
- No Replies
|
|
Hi
i french developer and not fluent in english but i try to do my best ! Well, i have a Vcl project where black circles are drawn inside a TImage (with Image1.Picture.Bitmap.Canvas). The 3 mouse events OnMouseDown, OnMouseMove and OnMouseUp are used to select with a black empty rectangle some circles drawn. This rectangle is drawn during the OnMouseMove even : the OnMouseDown event defines the upper left corner of the rectangle and the OnMouseUp event the bottom right corner of the rectangle. Then the Timage is drawn again entirely, the circles that inside the previous rectangle are drawn with red color and the others remain in black. I need OnMouseDown and OnMouseUp events on the server side to do some business logic. OnMouseMove event is only necessary for drawing the selection rectangle.
I try to do this with IW project (i use IW 15 evaluation edition). So i use a TIWImage because IWCanvas doesn't not exist. First i added javascript to avoid ghost image when you mouse down en mouse move inside ... So OnAsyncMouseDown and OnAsyncMouseUp events work well but OnMouseMove have issue : the selection rectangle begins to appear and then disappears.
Do you have an idea to solve this problem ? IWCanvas will come with IW 17 or not ?
Best regards
Stéphane
|
|
|
|
| IDTCP |
|
Posted by: Rustam - 11-23-2018, 06:04 AM - Forum: Indy
- Replies (3)
|
|
Hello, i have code server
Code: unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
IdBaseComponent, IdComponent, IdCustomTCPServer, IdTCPServer, IdContext,
FMX.Controls.Presentation, FMX.ScrollBox, FMX.Memo, IdGlobal;
type
TRec_Data = record
Flag: char;
end;
TForm1 = class(TForm)
IdTCPServer1: TIdTCPServer;
Memo1: TMemo;
procedure IdTCPServer1Execute(AContext: TIdContext);
procedure IdTCPServer1Connect(AContext: TIdContext);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);
var
Rec : TRec_Data;
Buffer: TIdBytes;
begin
Form1.Memo1.Lines.Insert(0, 'подключился');
end;
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
Rec : TRec_Data;
Buffer: TIdBytes;
begin
Rec.Flag := '3';
Buffer := RawToBytes(Rec, SizeOf(Rec));
AContext.Connection.Socket.Write(Buffer);
Form1.Memo1.Lines.Insert(0, Rec.Flag);
Rec.Flag := '2';
Buffer := RawToBytes(Rec, SizeOf(Rec));
AContext.Connection.Socket.Write(Buffer);
Form1.Memo1.Lines.Insert(0, Rec.Flag);
end;
end.
and code client
Code: unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
System.Generics.Collections,
IdTCPClient, IdGlobal, FMX.Controls.Presentation, FMX.ScrollBox, FMX.Memo;
type
TRec_Data = record
Flag: char;
end;
TMyThread = class(TThread)
private
Progress: string;
Client : TIdTCPClient;
FQueue : TThreadedQueue<TRec_Data>;
protected
procedure Execute; override;
public
constructor Create(const AQueue : TThreadedQueue<TRec_Data>);
destructor Destroy; override;
end;
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
FQueue : TThreadedQueue<TRec_Data>;
FMyThread : TMyThread;
Timer : TTimer;
procedure OnTimer(Sender: TObject);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.FormCreate(Sender: TObject);
begin
FQueue:=TThreadedQueue<TRec_Data>.Create(100, 100, 10);
Timer:=TTimer.Create(Self);
Timer.Interval:=1000;
Timer.OnTimer:=OnTimer;
Timer.Enabled:=True;
FMyThread:=TMyThread.Create(FQueue);
FMyThread.Start;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
if Assigned(FMyThread) then
begin
FMyThread.Terminate;
FMyThread.WaitFor;
FMyThread.Free;
end;
if Assigned(Timer) then
Timer.Free;
if Assigned(FQueue) then
FQueue.Free;
end;
procedure TForm1.OnTimer(Sender: TObject);
Var ARec : TRec_Data;
begin
while FQueue.PopItem(ARec) = TWaitResult.wrSignaled do
// if FQueue.PopItem(ARec) = TWaitResult.wrSignaled then
Form1.Memo1.Lines.Insert(0, ARec.Flag);
end;
constructor TMyThread.Create(const AQueue : TThreadedQueue<TRec_Data>);
var
Rec: TRec_Data;
Buffer: TIdBytes;
begin
inherited Create(true);
FQueue:=AQueue;
Client := TIdTCPClient.Create(nil);
Client.Host := '127.0.0.1';
Client.Port := 6000;
Client.Connect;
// Передаем данные
if Client.Connected = True then
begin
Rec.Flag := '1';
Buffer := RawToBytes(Rec, SizeOf(Rec));
Client.IOHandler.Write(Buffer);
end;
end;
destructor TMyThread.Destroy;
begin
if Assigned(Client) then
Client.Free;
inherited;
end;
procedure TMyThread.Execute;
var
Rec: TRec_Data;
Buffer: TIdBytes;
begin
while Not Terminated do
begin
if Client.Connected then
begin
if Client.IOHandler.InputBufferIsEmpty = false then
begin
Client.IOHandler.ReadBytes(Buffer, SizeOf(Rec));
BytesToRaw(Buffer, Rec, SizeOf(Rec));
FQueue.PushItem(Rec);
end;
end
else
Client.Connect;
TThread.Sleep(10);
end;
end;
end.
why does the first message come several times, what is the error?
Thanks
|
|
|
|
| RemoveCookie function |
|
Posted by: wadcompany - 11-22-2018, 12:26 PM - Forum: IntraWeb General Discussion
- No Replies
|
|
Hello friends, could you check if in your version 15.0.16, is the function working to remove cookies?
For me it is not working, they could check, thank you.
Webapplication.Response.Cookies.RemoveCookie('IWUSUARIO','/');
|
|
|
|
|
"TGlyphBitmap :