indy Activex Thread issues

[mrmarman]

The point is, please look other project.
Animation for only to remember you which forum thread that is.

[mia]

i take time to look at your project , your project is perfect but there is a problem iam not good with xml parsing ,, reason that i want to use my project because i use very simple protocol to send and receive commands example

Kod: Tümünü seç

sendcommandwithparams(client, 'command', anything i want to send + ~); and i can use its as Params[1] to recive

, its so simple than parsing xml i will unable to combine this with your projects

[mrmarman]

I see. Thank you. It was just education purposes.
Good to hear that problem has been solved.
Have a good work.

[mia]

you are awesome mrmarman you dont know how many time i spend before to get this activex thread working ,, still have some bugs , is there other ways to synchronize instead from using tmemo or tstring ? i mean in this code

Kod: Tümünü seç

procedure Ttestthreading.Memo1Change(Sender: TObject);
begin
  // '~' means EndOfTransAction for transaction. I decided it myself, not a common thing.
  if Pos('~', Memo1.Lines.Text ) > 0 then
  begin
    // Synchronized / Incoming Message Event is Here...
    ProcessCommands( Memo1.Lines.Text );
    Memo1.Lines.Clear;
  end;
end;

before i was syncronize like this

Kod: Tümünü seç

ProcessCommands(Command);
  Command := '';

because this always will delete the tmemo and old text will not showing when i try to change synchronize stops from working its also visible the command to the users in received memo

[mrmarman]

Try to use another new tmemo for onchange event usage.
I explained a couple messages ago above.
Don't be forget about to change memo1 to memo2 on thread creation process.

[mia]

do i have to use changememo event to get it work ? do i have to use tmemo at all ? why i canot use only command string variable

[mrmarman]

You need a thread for messaging and an event for gathering that messages from thread side to main form place.
That is why to use a dummy vcl.
In my methodology, I usually use TMemo. You may use any vcl that exists onchange event or like that.

[mia]

i try other tmemo as you said i dont know why its showing the command in the other memo

[mrmarman]

Please give me name, which is what? Let's we found the issue by tracinh the source code

[mia]

here is the project and what i did

http://www.mediafire.com/download/e65gh ... marman.rar

i removed mMessage.Text := Command; from command process to solve this command showing in other memo

i dont know still how command be sorted in memo1 how command added in memo1 onchange event if there is no refrence to add any command there ?

tell me if i did something wrong in my project also i removed ~ because i alread have SEP to define EndOfTransAction but why when i removed this

[mrmarman]

Downloaded and see that, you don't read my writings.
Please look at this.

Kod: Tümünü seç

procedure Ttestthreading.TCPClientConnected(Sender: TObject);
begin
  ListeningThread := TReadingThread.Create( TCPClient, Memo1.Lines );
  SendCommandWithParams(TCPClient, 'LOGIN', edPass.Text  + Sep);
end;

I said before many times ; add new memo and don't be forget what?
Memo1.lines don't you see?

Thread returns value with this.

[mia]

i already added new memo called Mmessege ,, also why when i remove this line from process command its stop from working ? and also how the command sorted into memo1 ?

Kod: Tümünü seç

Command := Trim(StringReplace( Command, '', '', [rfReplaceAll])); 

[mrmarman]

just check it out.
change this

Kod: Tümünü seç

ListeningThread := TReadingThread.Create( TCPClient, Memo1.Lines );

to this

Kod: Tümünü seç

ListeningThread := TReadingThread.Create( TCPClient, Mmessege.Lines );

and sit back and watch what's going...

[mia]

i get lag after i did that , also how the command stored in memo ?

[mrmarman]

then copy and paste code from Memo1's OnChange event to the Mmessege's onChange event. This will take the transaction from Memo1 to the Mmessege.