05-07-2012, 04:59 AM
السلآم عليكم ورحمة الله وبركاته....
اخوتي الاعزاء ...
ماهي طريقة الارسال الى اكثر من عميل حيث اني وجدت طريقة لكن فيها مشكلة ويقوم بأعطائي الخطأ التالي :
List Index Out Of Bounds (1
الكود الذي استخدمته
شكراً لكم
اخوتي الاعزاء ...
ماهي طريقة الارسال الى اكثر من عميل حيث اني وجدت طريقة لكن فيها مشكلة ويقوم بأعطائي الخطأ التالي :
List Index Out Of Bounds (1
الكود الذي استخدمته
كود :
procedure TForm4.redt1Change(Sender: TObject);
var
Range: IHTMLTxtRange;
i:integer;
begin
Range := ((wb1.Document AS IHTMLDocument2).body AS IHTMLBodyElement).createTextRange;
Range.collapse(false);
Range.PasteHTML(format('<p>%S<p/>',[redt1.Text]));
FlashWindow(Application.Handle, True);
if (form1.Sv1.Socket.ActiveConnections > 0) then
wb1.OleObject.Document.ParentWindow.ScrollBy(0, +1000000000);
FlashWindow(Application.Handle, True);
begin
for i := 0 to form1.Sv1.Socket.ActiveConnections-1 do
begin
Form1.sv1.Socket.Connections[0].SendText(redt1.text);
Form1.sv1.Socket.Connections[1].SendText(redt1.text);
Form1.sv1.Socket.Connections[2].SendText(redt1.text);
Form1.sv1.Socket.Connections[3].SendText(redt1.text);
Form1.sv1.Socket.Connections[4].SendText(redt1.text);
Form1.sv1.Socket.Connections[5].SendText(redt1.text);
Form1.sv1.Socket.Connections[6].SendText(redt1.text);
Form1.sv1.Socket.Connections[7].SendText(redt1.text);
wb1.OleObject.Document.ParentWindow.ScrollBy(0, +1000000000);
FlashWindow(Application.Handle, True);
redt1.Clear;
end;
end;
end;
شكراً لكم
اللهمّ إنّي ظلمت نفسي ظلماً كثيراً ولا يغفر الذّنوب إلا أنت
فاغفر لي مغفرة من عندك وارحمني إنّك أنت الغفور الرّحيم
فاغفر لي مغفرة من عندك وارحمني إنّك أنت الغفور الرّحيم