+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ارسال جميع Item من Listview عن طريق Socket (/showthread.php?tid=4504)
ارسال جميع Item من Listview عن طريق Socket - M_Mori2010 - 02-09-2012
السلآم عليكم ورحمة الله وبركاته ..
ماهو الخطأ في هذا الكود حيث انني آْرٍيٍدْ ارسال جميع Item من Listview عن طريق Socket
كود :
procedure TForm10.Rom1ClientRead(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='*Mr2*' then
begin
for i := 0 to lvl1.Items.Count - 1 do
begin
all_name:=all_name+lvl1.Items[i].Caption +'*|'+lvl1.Items[i].subitems[0]+'^*'+lvl1.Items[i].subitems[1]+'&^'+lvl1.Items[i].subitems[2]+'%*'+lvl1.Items[i].subitems[9]+'!@'+lvl1.Items[i].subitems[6];
end;
for i := 0 to lvl1.Items.Count - 1 do
begin
rom1.Socket.Connections[i].SendText('*Mr2*@'+all_name);
end;
end;
end;
end;جزاكم الله كل خير
ارسال جميع Item من Listview عن طريق Socket - nebchadelphi - 02-09-2012
السلام عليكم
يمكن ان يكون الخطأ بالتصريح بالنسبة للمتغيرات Var مع بعضها وهذا بالنسبة ل String
لا تقسمها على اثنين بل اجمعها مع بعضها
ارسال جميع Item من Listview عن طريق Socket - S.FATEH - 02-09-2012
الخطأ وضاح اخي يجب ان يكون كل شيئ داخل ال loop
انت خرجت من الحلقة ثم انشئت حلقة و و ...الاصح
PHP كود :
procedure TForm10.Rom1ClientRead(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='*Mr2*' then
begin
for i := 0 to lvl1.Items.Count - 1 do
begin
all_name:=all_name+lvl1.Items[i].Caption +'*|'+lvl1.Items[i].subitems[0]+'^*'+lvl1.Items[i].subitems[1]+'&^'+lvl1.Items[i].subitems[2]+'%*'+lvl1.Items[i].subitems[9]+'!@'+lvl1.Items[i].subitems[6];
rom1.Socket.Connections[i].SendText('*Mr2*@'+all_name);
end;
end;
end;
end;
ارسال جميع Item من Listview عن طريق Socket - M_Mori2010 - 03-09-2012
شكراً لكم بعد عناء طويل وبعد تصحيح الكود كان الخطاً هو اني قمت بترك أحد Item فارغ
جزاكم الله كل خير اخوتي