+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استفسآر عن الحدث OnConnect في IdTCPServer ؟ (/showthread.php?tid=1084)
استفسآر عن الحدث OnConnect في IdTCPServer ؟ - AL-MOB4RM3G - 29-07-2009
السلام عليكم ورحمة الله
اخوآني الكرآم
كنت اتآبع درس اليوم من كتآب ماسترينج دلفي ويتحدث فيه عن اخآدم و العميل,, اي سيرفر و كليانت,,
ووصل لحد انه بدئ يستخدم الآمر Connect ,, الكود التآلي,,
إقتباس :procedure TFormServer.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
lbLog.Items.Add ('Connected from: ' +
AThread.Connection.Socket.Binding.PeerIP);
end;
لآحظوا AThread: TIdPeerThread ولكن عندي في نفس الحدث يظهر
إقتباس :(AContext: TIdContext);
وكذلك هو الحآل مع بآقي الأحدآث,,
ما الخلل بارك الله لكم ؟
استفسآر عن الحدث OnConnect في IdTCPServer ؟ - o15s19 - 29-07-2009
لا يوجد خلل لأنو تم استبدال ال Athread في ال Indy 10 بال AContext
و التعليمة تصبح
AContext.Binding.PeerIP
استفسآر عن الحدث OnConnect في IdTCPServer ؟ - AL-MOB4RM3G - 01-08-2009
o15s19 كتب :لا يوجد خلل لأنو تم استبدال ال Athread في ال Indy 10 بال AContext
و التعليمة تصبح
AContext.Binding.PeerIP
شكرا لك اخي على التوضيح,,
لكن يبدوا هناك خلل عندي ؟؟ عذرا على الخروج من الموضوع نسبياًَ,,,
لاحظ ال اليونيت,.,
PHP كود :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdCustomTCPServer, IdTCPServer;
type
TForm1 = class(TForm)
IdTCPServer1: TIdTCPServer;
procedure IdTCPServer1Connect(AContext: TIdContext);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);
begin
self.Caption:= 'Connect';
end;
end.
و الخلل كما في الدلفي هو
إقتباس :[DCC Error] Unit1.pas(12): E2003 Undeclared identifier: 'TIdContext'
[DCC Error] Unit1.pas(26): E2005 'TIdContext' is not a type identifier
[DCC Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'
بارك الله لكم
استفسآر عن الحدث OnConnect في IdTCPServer ؟ - o15s19 - 01-08-2009
AL-MOB4RM3G كتب :و الخلل كما في الدلفي هو
[DCC Error] Unit1.pas(12): E2003 Undeclared identifier: 'TIdContext'
[DCC Error] Unit1.pas(26): E2005 'TIdContext' is not a type identifier
[DCC Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'
أخي الكريم ضع IdContext في Uses و ستحل المشكلة إن شاء الله
استفسآر عن الحدث OnConnect في IdTCPServer ؟ - AL-MOB4RM3G - 01-08-2009
o15s19 كتب :أخي الكريم ضع idcontext في uses و ستحل المشكلة إن شاء الله
نعم بارك الله فيك اخي الكريم,, اشكرك كثيرا,,
سبحان الله,, الأمر كان بهذه السهولة ومع ذلك لم يخطر هذا في بالي,,,
اشكرك اخي الكريم كثيرا,, لأني كنت على وشك ان افقد صوآبي والله المستعان,,