| Welcome, Guest |
You have to register before you can post on our site.
|
| Online Users |
There are currently 1888 online users.
» 2 Member(s) | 1883 Guest(s)
Applebot, Bing, Google, b52club1biz, qq8876net
|
| Latest Threads |
WebApplication.IP change ...
Forum: IntraWeb General Discussion
Last Post: MJS@mjs.us
Yesterday, 09:49 PM
» Replies: 1
» Views: 114
|
Hook/callback to handle t...
Forum: IntraWeb General Discussion
Last Post: Lenfors
09-08-2026, 09:03 AM
» Replies: 0
» Views: 108
|
Reproducible IIS crash in...
Forum: IntraWeb General Discussion
Last Post: alex.trejo@tttnet.com.mx
09-08-2026, 01:48 AM
» Replies: 0
» Views: 120
|
The packages IW16.xx inc...
Forum: IntraWeb General Discussion
Last Post: hsbelli
09-03-2026, 11:46 AM
» Replies: 2
» Views: 402
|
Redirection issues with F...
Forum: IntraWeb General Discussion
Last Post: magosk
08-31-2026, 10:03 AM
» Replies: 0
» Views: 204
|
Source Code
Forum: IntraWeb General Discussion
Last Post: magosk
08-31-2026, 08:11 AM
» Replies: 3
» Views: 568
|
TContenthandler requires ...
Forum: IntraWeb General Discussion
Last Post: valmeras
08-30-2026, 02:35 AM
» Replies: 0
» Views: 193
|
TIWjQDBGrid erratic behav...
Forum: IntraWeb General Discussion
Last Post: alex.trejo@tttnet.com.mx
08-20-2026, 05:12 PM
» Replies: 8
» Views: 2,139
|
Change Language DataTable
Forum: IntraWeb General Discussion
Last Post: Rigoberto Mercedes
08-19-2026, 03:21 PM
» Replies: 1
» Views: 328
|
How to terminate HTTP Thr...
Forum: Indy
Last Post: rlebeau
08-14-2026, 08:01 AM
» Replies: 5
» Views: 931
|
|
|
| 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 :