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

Username
  

Password
  





Search Forums

(Advanced Search)

Forum Statistics
» Members: 82,349
» Latest member: thailandtdactravel
» Forum threads: 2,408
» Forum posts: 11,315

Full Statistics

Online Users
There are currently 478 online users.
» 2 Member(s) | 472 Guest(s)
Applebot, Bing, DuckDuckGo, Google, Robina jakh, thailandtdactravel

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: 629
VCL conversion
Forum: Delphi General Discussion
Last Post: tobenschain
06-20-2026, 05:00 AM
» Replies: 0
» Views: 73
TIWjQDBGrid changing UI
Forum: IntraWeb General Discussion
Last Post: BoostedCruiser
06-08-2026, 02:02 AM
» Replies: 36
» Views: 70,361
TIWjQDBGrid erratic behav...
Forum: IntraWeb General Discussion
Last Post: Fabrizio Conti
06-04-2026, 09:14 AM
» Replies: 3
» Views: 473
Access Violation When Val...
Forum: IntraWeb General Discussion
Last Post: Alexandre Machado
06-03-2026, 08:47 AM
» Replies: 2
» Views: 517
Bootstrap5
Forum: IntraWeb General Discussion
Last Post: geraldtatum
06-02-2026, 06:24 AM
» Replies: 1
» Views: 412
weakpackageunit contains ...
Forum: IntraWeb General Discussion
Last Post: rlebeau
05-26-2026, 04:56 PM
» Replies: 4
» Views: 531
Custom 404 handler
Forum: IntraWeb General Discussion
Last Post: CfawesDwale
05-21-2026, 08:02 AM
» Replies: 0
» Views: 256
PopUp Menu
Forum: IntraWeb General Discussion
Last Post: alex.trejo@tttnet.com.mx
05-13-2026, 04:35 AM
» Replies: 4
» Views: 8,207
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,124

 
  TCPServer crash on shutdown
Posted by: kbriggs - 08-05-2018, 07:50 PM - Forum: Indy - Replies (12)

Since the Embarcadero forums seem to be unusable now, thought I try here first.  I've Googled around and seen this issued raised before but nothing I've found so far has helped.

After years of no issues, I'm suddenly having a problem with shutting down a TIdTCPServer component. Setting Active := False is occasionally locking up my app. So much so that the process cannot be killed in either the Windows Task Manager or Process Explorer. One single thread (identified as TMethodImplementationIntercept in Process Explorer) remains and a Windows reboot is the only way out. I upgraded to a more recent Indy version (10.6.2.5469) but the problem persists. It happens maybe 10% of the time even when I perform the same steps over and over.

By inserting markers in the code to record to an error log (which runs in a critical section) I've traced the problem this deep, where 2 listening threads are supposed to terminate:

Active := False
SetActive
Shutdown
StopListing
LListener.Binding.CloseSocket  (if crashes, always does so on the first of two loops)
Disconnect
GStack.Disconnect(Handle)

That last one never returns. It's a virtual abstract method so I'm not sure where to go from there.

My app is a game server with an HTTPServer (that servers an HTML5 web app client) and a TCPServer and acts as websocket connection for the client. Both are started and stopped together from a button click in the app's main thread. The HTTPServer never crashes on shutdown, only the TCPServer does. I've tried using a worker thread to shut down the TCPServer. That allows me to exit the app when the problem occurs but the EXE is still running on the Processes tab and cannot be killed. I'm using the OnConnect, OnDisconnect, and OnExecute events and all are contained in try/except blocks that reraise Indy exceptions like this:

try
 // stuff here
except
  on E: Exception do
  begin
    if not(E is EIdException) then LogData.AddError('WSServerConnect error: ' + E.Message);
    raise;
  end;
end;

So what else can I check to track this down?

Print this item

  duplex audio over udp
Posted by: Madammar - 08-03-2018, 04:08 PM - Forum: Indy - Replies (4)

i use Tidtudpserver to send audio to clients i have something i do not understand from long time ago

when one client Send Audiodata to udpserver and udpserver send it back to clients every thing works fine and audio arrived good and clear

if 2 or 3 clients send audio at the same time the audio arrived un understandable and have too many cutting i wanted to make it a live conversation with duplex audio but i dont understand where is the problem is is it from idudpserver or from receiver side ?

here is the receiver side code



Code:
procedure TForm2.udpreciverUDPRead(AThread: TIdUDPListenerThread;
 const AData: TIdBytes; ABinding: TIdSocketHandle);
var
 AudioDataSize: Integer;
 AudioData : Pointer;
begin
TThread.Synchronize(nil,
procedure
begin


AudioDataSize := Length(AData);

if (AudioDataSize > 10) then
begin
try
if not Player.Active then
begin
Player.Active := True;
Player.WaitForStart;
end;
except
end;
if BlockAlign > 1 then
begin
Dec(AudioDataSize, AudioDataSize mod BlockAlign);
end;

AudioData := AudioBuffer.BeginUpdate(AudioDataSize);
try
BytesToRaw(AData, AudioData^, AudioDataSize);
finally
AudioBuffer.EndUpdate;
end;
end else
begin
Player.Active := False;
Player.WaitForStop;
end;

end);
end;

and here is the server side i have set multithreaded event to True


Code:
procedure TForm1.broadcatsaudio(ABinding: TIdSocketHandle; ipada : string; porta, serverprta : integer; const AData: TIdBytes);
var
AUDIOLIST : TAUDIOLIST;
c : integer;
List : Tlist;
begin


list := AllAUDIO.LockList;
try



for c := 0 to list.Count - 1 do
begin
AUDIOLIST := list.Items[c];

if (AUDIOLIST.userserverPort = serverprta)
And (AUDIOLIST.userport <> porta) then
begin
Abinding.SendTo(AUDIOLIST.userip, AUDIOLIST.userport, Adata);

end;




end;



finally
 AllAUDIO.UnlockList;
end;



end;


sorry for my bad grammar i am trying to describe what i am trying to do as best as i can

Print this item

  ServerInternalFiles Access Location
Posted by: joel - 08-02-2018, 12:07 PM - Forum: IntraWeb General Discussion - Replies (3)

If I need to use the ServerInternalFiles how and where do I access them?

Print this item

  Triggering component event from raw text HTML element -- Answered
Posted by: mdomke - 08-02-2018, 03:29 AM - Forum: IntraWeb General Discussion - Replies (5)

Is there a way to trigger an IWControl event from a HTML element created in raw text?

For example, if I create a series of HTML elements, for example anchor tags <a>, using the raw text mode of an IWText component, can I hook the onClick event of that HTML element to an onClick event defined in an IWForm, or the WebApplication for that matter?

I'm trying to create a visually unique navigation and the only way I found I can do this is by using the raw text mode of the IW Text component. I need the HTML elements within the raw text to be interactive and I need that interaction to be managed by the WebApplication session, for example, navigating to another page.

I hope this makes and any insight and especially code examples would be much appreciated.

Many thanks,
Michael

Print this item

  hhtp.sys windows server 2016
Posted by: Alain - 08-01-2018, 12:20 PM - Forum: IntraWeb General Discussion - Replies (2)

I install my HTTP.sys application in standalone mode on my server, it works perfectly
TIWStartHSys.Execute (True);

When I install it as a service
TIWStartHSys.Execute (True);
The app does not respond

that's what I did:
MyApp.exe / Install
net start MyApp

I checked, the service runs, I opened port 8888

Windows Server 2016 Standard (64-bit)

merci

Print this item

  HTTP.sys deployement
Posted by: Alain - 08-01-2018, 10:14 AM - Forum: IntraWeb General Discussion - No Replies

Hello

I converted my application to HTTP.sys when I connect I have the following message (see image)

I'm using MYSQL tables that are open in the "IWUserSessionBaseCreate" event
this event is no longer called and therefore the tables are no longer open.

If I test my app with:
TIWStartHSys.Execute (True);
everything is working properly.

I may not be very well understood what I needed to deploy my application, thank you for your help

Delphi Tokyo 10.2 and update 2
intraweb 15.0.10

Alain



Attached Files Thumbnail(s)
   
Print this item

  IntraWb 15.0.10 is out
Posted by: Alexandre Machado - 07-31-2018, 10:34 PM - Forum: IntraWeb General Discussion - Replies (3)

Hi guys,

new update available: https://www.atozed.com/2018/07/15-0-10/

Enjoy!

Print this item

  Linux support ?
Posted by: denville - 07-31-2018, 05:12 PM - Forum: IntraWeb General Discussion - Replies (3)

Hi, following my amazing experience earlier this year, I now have a requirement to add a support and configuration web page to a Linux console application (Ubuntu).  There was a lot of talk about Linux, may I ask, is anything available that would allow me to design an Intranet web page and add a server to the Linux console application ?

Thanks,

Denville.

Print this item

  Dynamic creation TIWRegion
Posted by: Rassamaha78 - 07-31-2018, 02:14 PM - Forum: IntraWeb General Discussion - Replies (2)

I want to create my own analogue ListBox with custom Items. Try use TIWRegion for it:

Code:
//TBetslipItem = class( TIWRegion );

with TBetslipItem.Create( Self ) do
begin
 Parent := rgnBetslip;// rgnBetslip - primary TIWRegion
 Top    := ( rgnBetslip.IWComponentsCount - 1 ) * 120;
 Left   := 0;
 Width  := 120;
 Height := 120;
 Color  := $00303030;
 RenderInvisibleControls := True;
end;
 
  
 When I create (On Button Click) a component the first time, everything works, But if  create more components, i can see only the last one created:

   
   
   

Number in title shows current rgnBetslip.IWComponentsCount;

What could be the problem ?

P.S. If instead of TIWRegion using TIWRectangle then such a problem does not arise, but I can not place any components on TIWRectangle.

The problem is solved. I did not specify the name of the component, for example:
Name := 'BetslipItem' + IntToStr( rgnBetslip.IWComponentsCount );

Print this item

  ISAPI memory in 32 bits
Posted by: ronaldobim - 07-31-2018, 11:49 AM - Forum: IntraWeb General Discussion - Replies (5)

Hello, we know that in a standalone application 32bits in delphi supports 2GB of memory, in ISAPI applications does this limitation exist as well? or is this limit for each session?

Print this item