+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : شرح هذا الكود لو سمحتم (/showthread.php?tid=4348)
شرح هذا الكود لو سمحتم - M_Mori2010 - 12-07-2012
السلام عليكم ورحمة الله وبركاته
ممكن شرح الكود التالي :
PHP كود :
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var s,str,name,nei_rong:string;
i,n:integer;
all_name,ni_cheng:string;
newitem:TListItem;
begin
s:=Socket.ReceiveText; //½ÓÊÕ×Ö·û´®
n:=pos('@',s);
if n>0 then
begin
str:=copy(s,1,n-1);
if str='½»Ì¸' then //¸ñʽ:"½»Ì¸"@"toêdzÆ"@"ÄÚÈÝ"
begin
str:=copy(s,n+1,length(s)-n);
name:=copy(str,3,pos('@',str)-3); //½»Ì¸µÄ¶ÔÏóêdzÆ
nei_rong:=copy(str,pos('@',str)+1,length(str)-pos('@',str));//½»Ì¸µÄÄÚÈÝ
for i:=0 to ListView1.Items.count-1 do //¸ù¾Ý·¢ÑÔÕßIPÕÒ·¢ÑÔÕßêdzÆ
begin
if socket.RemoteAddress=ListView1.Items[i].subitems[0] then
begin
ni_cheng:= ListView1.Items[i].caption;
RichEdit1.Lines.add(ni_cheng+'¶Ô'+name+'˵'+nei_rong); end;
end;
for i:=0 to ListView1.Items.count-1 do //¸ù¾Ý½»Ì¸µÄ¶ÔÏóêdzÆÕÒ½»Ì¸µÄ¶ÔÏóIP
begin
if name=ListView1.Items[i].caption then
name:=ListView1.Items[i].subitems[0]; //subitems[0]´æ·ÅIP
end;
for i:=0 to ListView1.Items.count-1 do //ʵÏÖ˽ÁÄ
begin
if ServerSocket1.Socket.Connections[i].RemoteAddress=name then
ServerSocket1.Socket.Connections[i].SendText('½»Ì¸@'+ni_cheng+'@'+nei_rong);
end;
end;
if str='êdzÆ' then //êdzÆ@xmj
begin
all_name:='';
newitem:=ListView1.Items.insert(ListView1.Items.count);
newitem.caption:=copy(s,pos('@',s)+1,length(s)-pos('@',s));
newitem.SubItems.Add(socket.RemoteAddress);
newitem.SubItems.Add(socket.RemoteHost);
RichEdit1.Lines.add(newitem.caption+'½øÀ´ÁË');
for i:=0 to ListView1.Items.count-1 do
all_name:=all_name+ListView1.Items[i].Caption +'^'+ListView1.Items[i].subitems[0]+'@';
for i:=0 to ListView1.Items.count-1 do //¹ã²¥Ð½øÈëÓû§
begin
ServerSocket1.Socket.Connections[i].SendText('Ìí¼ÓÓû§@'+all_name);
end;
end;
end;
end;
procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket); //Óû§À뿪´¥·¢
var i:integer;ni_cheng:string;
begin
for i:=0 to ListView1.Items.count-1 do //¸ù¾Ý·¢ÑÔÕßIPÕÒ·¢ÑÔÕßêdzÆ
begin
if socket.RemoteAddress=ListView1.Items[i].subitems[0] then
begin
ni_cheng:= ListView1.Items[i].caption;
RichEdit1.Lines.add(ni_cheng+'À뿪ÁË');
end;
end;
for i:=0 to ListView1.items.count-1 do //ListView1ÖвéÕÒÀ뿪Óû§
begin
if Socket.RemoteAddress= ListView1.Items[i].subitems[0] then
Listview1.Items.Item[i].Delete();
end;
for i:=0 to ListView1.items.count-1 do //¹ã²¥À뿪Óû§
ServerSocket1.Socket.Connections[i].SendText('À뿪@'+ListView1.Items[i].caption);
شكراً لكم
شرح هذا الكود لو سمحتم - محمد عبد العزيز - 18-07-2012
وعليكم السلام ورحمة الله
شرك كود يتطلب وقت، اطرح السؤال عن شيئ محدد او حدد السطر الذي لم تفهمه.
شرح هذا الكود لو سمحتم - M_Mori2010 - 18-07-2012
كود :
n:=pos('@',s);
if n>0 then
begin
str:=copy(s,1,n-1);
if str='½»Ì¸' then //¸ñʽ:"½»Ì¸"@"toêdzÆ"@"ÄÚÈÝ"
begin
str:=copy(s,n+1,length(s)-n);
name:=copy(str,3,pos('@',str)-3); //½»Ì¸µÄ¶ÔÏóêdzÆ
nei_rong:=copy(str,pos('@',str)+1,length(str)-pos('@',str));//هذا الشرح اخي لو سمحت
شرح هذا الكود لو سمحتم - S.FATEH - 18-07-2012
السلام عليكم يمكنك مراجعة http://www.delphi4arab.net/forum/showthread.php?tid=1834 مفيد ان شاء الله
شرح هذا الكود لو سمحتم - محمد عبد العزيز - 18-07-2012
شرح الكود علاه سطرا سطرا
ضع بالمتغير n موضع الحرف '@'
اذا كان n يختلف عن الصفر قم بما يلي
انسخ من المتغير النصي s انطلاقا من البداية الى n ناقص واحد حرف وضعه بالمتغير str (نسخ بداية النص الى موضع @)
اذا كان str (النص المنسوخ سابق) يساوي '½»Ì¸' قم بالتالي
انسخ ما تبقى من النص s وضعه بالمتغير str (نسخ مابعد @ من حروف)
انسخ من str انطلاقا من الحرف الثالث حتى موضع @ ناقص ثلاث وضع النتيجة بالمتغير name
انسخ من str انطلاقا من موضع @ الى النهاية وضع النتيجة بالمتغير nei_rong
شرح هذا الكود لو سمحتم - cargem - 18-07-2012
إقتباس : //¸ñê½:"½»ì¸"@"toêç³æ"@"äúèý"ولكن ما هذا النص!!
شرح هذا الكود لو سمحتم - onexite - 18-07-2012
cargem كتب :ولكن ما هذا النص!!
مجرد تعليق بلغة اجنبية ممكن روسية او صينية :d
شرح هذا الكود لو سمحتم - محمد عبد العزيز - 19-07-2012
إقتباس :ولكن ما هذا النص!!رموز خاصة بhtml
راجع
كود :
http://www.w3schools.com/tags/ref_entities.asp