networking - Server process running on Indy10 partially stops responding when OnConnect event interacts with a TTabControls Tabs from another form in Lazarus -


tried describe of problem in title, , did.

basically, i've made own little tcp server indy 10 in lazarus. accepts packets in form of bytes contain char representing letter english alphabet. i'm reading these bytes contexts' iohandler this:

procedure tserversideform.onexecuteserver(context: tidcontext); var   io: tidiohandler;   keypressed: char; begin   //   io := context.connection.iohandler;    if not(io.inputbufferisempty)   begin     logform.logtoform('recieving packet ' + context.binding.ip + '(' + context.binding.peerip + ')');      keypressed := io.readchar;     addkeytoappropriateclient(keypressed, context.binding.ip);   end;    indysleep(10);   // end;

and works perfectly.

however, i've got form has ttabcontrol in it, has tab each user connected server, there tmemo in each tab. tabs , memos created @ runtime , function that, not throw exceptions.

here's how addtab() function other form looks (for creating tabs , memos described above):

procedure tconnectionsform.addtab(ip: string); var   newmemo: tmemo; begin   connectiontabs.tabs.add(ip);   currtabindx := connectiontabs.tabindex;    newmemo := tmemo.create(connectionsform);    newmemo.anchorside[aktop].side:=asrtop;   newmemo.anchorside[aktop].control:=connectiontabs;   newmemo.borderspacing.top:=2;    newmemo.anchorside[akbottom].side:=asrbottom;   newmemo.anchorside[akbottom].control:=connectiontabs;   newmemo.borderspacing.bottom:=2;    newmemo.anchorside[akleft].side:=asrleft;   newmemo.anchorside[akleft].control:=connectiontabs;   newmemo.borderspacing.left:=2;    newmemo.anchorside[akright].side:=asrright;   newmemo.anchorside[akright].control:=connectiontabs;   newmemo.borderspacing.right:=2;    newmemo.anchors := [aktop, akbottom, akleft, akright];    newmemo.parent := connectiontabs;   newmemo.visible:=true;    newmemo.lines.add(ip);    setlength(connectionmessagesarr, length(connectionmessagesarr)+1);   connectionmessagesarr[length(connectionmessagesarr)-1] := newmemo;    showonly(currtabindx); end;

it seems working fine, i've tested multiple times on own.

but when run function onconnect function tidtcpserver server process seems freeze until other event, onexecute, example, happens. when onexecute execute, messages have been accepted process executed. example, if program freezes, , while it's frozen, try minimize 1 of forms , move other form somewhere else on screen, after program unfreezes.

here's own onconnect function:

procedure tserversideform.onconnectserver(context: tidcontext); begin   logform.logtoform(context.binding.ip + ' has connected server (' + context.binding.peerip + ')');    //connectionsform.addtab(context.binding.peerip); // boom   //connectionsform.connectiontabs.tabs.add('!!'); // boom end;

as i've stated in title, kind of interaction ttabcontrols tabs makes program freeze. connectionsform.connectiontabs.tabs.add('!!'); makes program freeze (here, connectionstabs ttabcontrol variable inside form called connectionsform).

i have no idea going on in here, appreciated.

well, yes, program thread-unsafe.

solved problem adding little sync class:

type   tmysync = class(tidsync)   protected     procedure dosynchronize; override;   public     context: tidcontext;   end;

and doing ttabcontrol shenanigans in dosyncronize overridden function.

procedure tmysync.dosynchronize; begin   logform.logtoform(context.binding.ip + ' has connected server (' + context.binding.peerip + ')');    connectionsform.addtab(context.binding.peerip); end;

and onconnect has been changed to:

procedure tserversideform.onconnectserver(context: tidcontext); var   sync: tmysync; begin //   sync := tmysync.create;   try     sync.context := context;     sync.synchronize;       sync.free;   end; end;

p.s. did analogous ondisconnect function.

everything seems work now.


Comments

Post a Comment

Popular posts from this blog

python - Operations inside variables -

this question has answer here: evaluating mathematical expression in string 12 answers i want make python script finds maximum possible output using 2 operations. problem says there syntax error @ 2nd last line, in b in there. how can fix it? x = 0 = int(input("1st number:")) c = int(input("2nd number:" )) e = int(input("3rd number:" )) in range(4): if == 0: b = "+" elif == 1: b = "-" elif == 2: b = "/" else: b = "*" j in range(4): if j == 0: d = "+" elif j == 1: d = "-" elif j == 2: d = "/" else: d = "*" k = b c d e print(k) if you're after variables e on single line, couldn...
Read more

Generic Map Parameter java -

i having lot of methods of type: public static list<eduusers> getdetails(class c, map<string, integer> params) { list<eduusers> details = null; session session = hibernateutil.getsessionfactory().opensession(); transaction tx = null; try { tx = session.begintransaction(); criteria cr = session.createcriteria(c); (map.entry<string, integer> entry : params.entryset()) { cr.add(restrictions.eq(entry.getkey(), entry.getvalue())); } details = cr.list(); tx.commit(); } catch (exception asd) { log.debug(asd.getmessage()); if (tx != null) { tx.commit(); } } { session.close(); } return details; } i trying have generic method them , have written far: public static <t> list<t> getdetails(class<t> c, class<t> b) { l...
Read more

arrays - What causes a java.lang.ArrayIndexOutOfBoundsException and how do I prevent it? -

what arrayindexoutofboundsexception mean , how rid of it? here code sample triggers exception: string[] name = {"tom", "dick", "harry"}; for(int = 0; i<=name.length; i++) { system.out.print(name[i] +'\n'); } your first port of call should documentation explains reasonably clearly: thrown indicate array has been accessed illegal index. index either negative or greater or equal size of array. so example: int[] array = new int[5]; int boom = array[10]; // throws exception as how avoid it... um, don't that. careful array indexes. one problem people run thinking arrays 1-indexed, e.g. int[] array = new int[5]; // ... populate array here ... (int index = 1; index <= array.length; index++) { system.out.println(array[index]); } that miss out first element (index 0) , throw exception when index 5. valid indexes here 0-4 inclusive. correct, idiomatic for statement here be: for (int index = 0; index <...
Read more