استفسآر عن الحدث OnConnect في IdTCPServer ؟
#1
السلام عليكم ورحمة الله

اخوآني الكرآم

كنت اتآبع درس اليوم من كتآب ماسترينج دلفي ويتحدث فيه عن اخآدم و العميل,, اي سيرفر و كليانت,,

ووصل لحد انه بدئ يستخدم الآمر Connect ,, الكود التآلي,,

إقتباس :procedure TFormServer.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
lbLog.Items.Add ('Connected from: ' +
AThread.Connection.Socket.Binding.PeerIP);
end;

لآحظوا AThread: TIdPeerThread ولكن عندي في نفس الحدث يظهر

إقتباس :(AContext: TIdContext);

وكذلك هو الحآل مع بآقي الأحدآث,,

ما الخلل بارك الله لكم ؟
فرّج همّ المهمومين يا الله
اللهم فك قيد اسرانا و اسرى المسلمين
الرد
#2
لا يوجد خلل لأنو تم استبدال ال Athread في ال Indy 10 بال AContext

و التعليمة تصبح
AContext.Binding.PeerIP
الرد
#3
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'


بارك الله لكم
فرّج همّ المهمومين يا الله
اللهم فك قيد اسرانا و اسرى المسلمين
الرد
#4
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 و ستحل المشكلة إن شاء الله
الرد
#5
o15s19 كتب :أخي الكريم ضع idcontext في uses و ستحل المشكلة إن شاء الله

نعم بارك الله فيك اخي الكريم,, اشكرك كثيرا,,
سبحان الله,, الأمر كان بهذه السهولة ومع ذلك لم يخطر هذا في بالي,,,
اشكرك اخي الكريم كثيرا,, لأني كنت على وشك ان افقد صوآبي والله المستعان,,
فرّج همّ المهمومين يا الله
اللهم فك قيد اسرانا و اسرى المسلمين
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم