از اساتید محترم خواهشمندم کمک نمائید - Indy و طراحی مسنجر

[saniak_robot]

با سلام
من با Indy توانستم پیام ارسال نمایم و لیست کاربران آنلاین را هم دریافت نمایم .
اما یک مشکلی که دارم این است که برنامه کلاینت هنگ می کند . یک Antifreez هم روی فرم قرار دادم اما وقتی فرم را drag می کنم برنامه هنگ می کند .
از اساتید خواهش می کنم مرا یاری نمایند.

[Touska]

شما اگر از Timer استفاده کرده اید بی فایده هست. شما باید از Thread استفاده نمایید نه از Timer.

[saniak_robot]

بله من از timer استفاده نمودم . ولی چگونه به جای timer از thread استفاده نمایم

[saniak_robot]

آقای سرباززاده من یک thread رو فرم قرار دادم و کدهایی که در تایمر نوشته بودم را در onrun آن نوشتم مشکلم حل شد .
از راهنمایی شما متشکرم.

[Touska]

منظور من تعریف thread به این شکل هست :


Type
PClient =^ TClient;
TClient = Record //Object for holding connected user
DNS,Name : String; //Host name and user name
Connected,
LastAction : TDateTime; //Last Connect time and action time
Thread : Pointer; //Hold a pointer of thread's user
End;


به اون کاری که شما کرددی که دیگه thread نمی گن.

[Touska]

و برای استفاده :


Clients : TThreadList;

و بعد اینجوری تو کانکت می نویسی :


procedure Connecting(UserName,DNS: String; Thread: Pointer);
Var
NewClient : PClient;
begin
New(NewClient);


NewClient.Name := Trim(UserName);
NewClient.DNS := DNS;
NewClient.Connected := StrToDateTime(PrintNormal+' '+TimeToStr(Time));
NewClient.LastAction := NewClient.Connected;
NewClient.Thread := Thread;
//Connect client and add thread
TIdPeerThread(Thread).Data := TObject(NewClient);

End;

و در tcpserverexecute دستورات فرمانی رو کار کن.

[Touska]

و در client به این شکل کار میکنی :



TClientHandleThread = Class(TThread) //Class Thread
Private
Transfer : TDataTransform;

Procedure HandleInput; //Input of Transfer data

Protected
Procedure Execute; Override; //Excute the client

End;
و نوع تعریفش :


ClientHandleThread : TClientHandleThread; // variable (type see above)
و برای ردگیری :


{ TClientHandleThread }

procedure TClientHandleThread.Execute;
begin
While Not Terminated Do
Begin
IF Not Client.Connected Then
Terminate
Else
Try
Client.ReadBuffer(Transfer, SizeOf (Transfer));
Synchronize(HandleInput);
Except
End;
End;
end;

و برای دستورات :


procedure TClientHandleThread.HandleInput;
Var
Commands : Char;
begin
Commands := Transfer.Command[1];
Case Commands OF
'@' : //Check for password and other
Begin
IF Trim(Transfer.Text) = 'False' Then
Disconnecting(True,False); //job for disconnect
End;
End;

[Touska]

با این تیکه کدها که فرستادم می تونید یک چیزی مثل Jabber یا Yahoo Messenger بنوسید.

:)

[saniak_robot]

آقا من و شرمنده خودت کردی.
دستت درد نکنه

[parsadsa]

ba sallam khedmate asatideh mohtaram ,,man tazeh be barname nevisi rooey awordam daram VB kar mikonam mishe lotf befarmaeed ke joori in matno tozih bedin ta manam motavajjeh besham..mamnoon

[vcldeveloper]

...daram VB kar mikonam mishe lotf befarmaeed ke joori in matno tozih bedin...
عزیز جان، اینجا بخش دلفی هست، کدی هم که در بالا نوشته شده کد دلفی هست. شما باید برید به بخش VB.

[davoodmz]

با تشکر از توسکای عزیز
آقای یک زحمت بکشید و اینکه شما که کدها را گذاشتین خود پروژه را بذارید اگر امکان دارد
باتشکر
داود

[farshad_momtaz]

می شه آقای Touska (http://barnamenevis.org/forum/member.php?u=6323)فایل نوشته شده مسنجر را به صورت اوپس سورس بزارید من تازه با این کامپوننت دلفی آشنا شدم می شه کمکم کنید
farshad_momtaz@yahoo.com