فرستادن پیغام به یک کامپیوتر دیگه

[Future]

سلام
چطوری یک پیغام از کامپیوتر خودم به کامپیوتر دیگری که در یک شبکه هستیم بفرستم اونهم در دلفی
میگن با ید با indy کار کنی و لی یاد ندارم لطفا راهنمایی کنید

[mzjahromi]

فقط ارسال یک پیغام یا نوشتن برنامه چت؟
اگه فقط ارسال یک پیغامه و ویندوزت هم 98 نیست با ShellExecute و دستور Net Send میتونی

[ehsan2000]

آقای ذوالقدر لطف می کنید کدش رو بنویسید

[mzjahromi]

procedure TForm1.Button1Click(Sender: TObject);
var
S:String;
begin
S:='Send '+Edit1.Text+' "'+Edit2.Text+'"';
ShellExecute(Handle, 'Open',Pchar('Net') , Pchar(S), nil, SW_SHOWDEFAULT);
end;

Edit1 حاوی IP یا نام کامپیوتر مقصد و Edit2 حاوی پیام است
موفق باشید

[ehsan2000]

ممنون .
چیز خاصی رو باید use کنیم . چون ایراد می گیره.و پیغام
Undeclared identifier: 'ShellExecute'
رو می ده.

[mzjahromi]

بله
shellApi رو به Uses اضافه کنید

[jafari1]

دوست عزیز جناب آقای ذوالقدر
پیامی ظاهر نمیشود و فقط یک صفحه مشکی (dos Prompt) یک لحظه ظاهر و برمیگردد

[mzjahromi]

دوست عزیز جناب آقای ذوالقدر
پیامی ظاهر نمیشود و فقط یک صفحه مشکی (dos Prompt) یک لحظه ظاهر و برمیگردد
IP رو چی میذاری دوست عزیز؟
127.0.0.1 رو بذار ببین جواب میگیری؟

[ehsan2000]

همون صفحه dos prompt یک لحظه ظاهر می شه و می بنده.
فکر می کنم توی ویندوزهای servic pack2 جواب نمی ده.:متفکر:
بهر حال از راهنمائیتون ممنون

[jafari1]

زود نا امید نشوید انشاالله با همت و تلاش خودتان و راهنمایی آقای ذوالقدر مسئله حل میشود

[m-khorsandi]

در قسمت سرویسهای ویندوز ، سرویس Messenger رو Start کنید برای هر دو کامپیوتر.

[mzjahromi]

فکر می کنم توی ویندوزهای servic pack2 جواب نمی ده.
ویندوز من ServicePack2 نیست ولی تو همون هم اگر Firewall رو Disable کنی شاید بشه. ببین تو Command خود ویندوز جواب میگیری؟ این دستور رو تو Run بنویس ببین جواب میگیری؟


Net Send 127.0.0.1 "salam"

[Future]

سلام دوست عزیز
حالا اگه بخوام کاربر رابطش از برنامه قطع بشه چه کنم
مثلا بعد از صادر شدن پیغام همان کاربر اکه پیغام براش صادر شده از برنامه خارج بشه
با تشکر

[ehsan2000]

سلام
محمدآقا دستور رو اجرا کردم . هیچ پیغامی نگرفتم ولی وقتی که از Net Send * "salam استفاده کردم فقط برای دستگاههای که servicepack2 ندارند پیغام صادر شد.
یکی از دوستان می گفت از tcp دلفی استفاده کنم. میشه راهنمایی بفرمائید.
متشکرم.

[mzjahromi]

یکی از دوستان می گفت از tcp دلفی استفاده کنم. میشه راهنمایی بفرمائید.
متشکرم
متاسفانه من با TCP کار نکردم.

[jafari1]

با سلام
من سرویس مسنجر را استارت کردم درست شد

[Future]

حالا اگه بخوام کاربر رابطش از برنامه قطع بشه چه کنم
مثلا بعد از صادر شدن پیغام همان کاربر اکه پیغام براش صادر شده از برنامه خارج بشه
یکی جواب بده

[ehsan2000]

آقای جعفری ویندوزت چیه؟

[هاجر]

سلام
جناب ذوالقدر متاسفانه منم نتونسم جواب بگیرم .

[mzjahromi]

جناب ذوالقدر متاسفانه منم نتونسم جواب بگیرم

من سرویس مسنجر را استارت کردم درست شد
دوستان که همه جوریش رو تست کردن. سرویس مسنجر رو استارت کردید؟

[ehsan2000]

بله سرویس مسنجر من استارته

[jafari1]

جناب آقای احسان 2000
با عرض پوزش از تاخیر ویندوز من اکس پی با سرویس پک 2 است