الى خبراء الوينسوك ونقل البيانات عبر الشبكة...ارجو المساعده

تداخل بيانات

راجع

/index.ph...rt=#entry579341

كما قال رغيد الطيب يجب وضع علامة معينة تتعامل معها في فصل البيانات لو تداخلت

كمثال :

في المرسل

rs.open "select name from mytable",db

do while rs.EOF=false

winsock1.senddata rs("name") & "#"

doevents

rs.movnext

loop

في المستقبل

dim info

dim S

winsock1.getdata info

FOT i =1 TO LEN(info)

if i ="#" then

flexgrid1.additem S

S= S + i

end if

افهم الفكرة بس ...

الحل بسيط

قم بجمع جميع الأسماء التي تريد ارسالها أولا في متغير نصي و افصل بينها بعلامة معينة كما ذكر الأخ hacking وذلك بهذه الطريقة مثلا :

rs.open "select name from mytable",db
dim Names as string
do while rs.EOF=false
names= names & "()" & rs("name")
doevents
rs.movnext
loop
winsock1.senddata names

و في برنامج ال Server

عند الحصول على البيانات قم بتقسيمها على حسب الفاصل الذي حددته و في مثالي هو "()"

dim info
dim SplitInfo() as string
winsock1.getdata info
SplitInfo = Split(info,"()")

ثم تقوم بعمل حلقة لو ضع البيانات في المكان الذي تريد

for i = 0 to Ubound(SplitInfo)
flexgrid1.additem SplitInfo(i)
next

أظن ان هذه الطريقة ستكون ناجحة

المهم جربها و رد علينا

و ال سلام عليكم