نمایش نتایج 1 تا 15 از 15

نام تاپیک: دسترسی به my network place

  1. #1
    کاربر دائمی آواتار delphi5
    تاریخ عضویت
    تیر 1385
    محل زندگی
    تهران
    پست
    350

    Tick دسترسی به my network place

    چطور میتوان به my network place دسترسی پیدا کرد .

  2. #2
    کاربر دائمی آواتار nasr
    تاریخ عضویت
    آذر 1382
    محل زندگی
    هر کجا هستم باشم آسمان مال من است پنجره فکر هوا عشق زمین مال من است
    پست
    2,018
    نقل قول نوشته شده توسط delphi5 مشاهده تاپیک
    چطور میتوان به my network place دسترسی پیدا کرد .
    سلام
    بفرمایید
    فایل های ضمیمه فایل های ضمیمه

  3. #3
    کاربر دائمی آواتار delphi5
    تاریخ عضویت
    تیر 1385
    محل زندگی
    تهران
    پست
    350
    مرسی . این فایل با Delphi 5 باز نمیشه !
    چطور میتونم بازش کنم ؟

  4. #4
    کاربر دائمی آواتار nasr
    تاریخ عضویت
    آذر 1382
    محل زندگی
    هر کجا هستم باشم آسمان مال من است پنجره فکر هوا عشق زمین مال من است
    پست
    2,018
    نقل قول نوشته شده توسط delphi5 مشاهده تاپیک
    مرسی . این فایل با Delphi 5 باز نمیشه !
    چطور میتونم بازش کنم ؟
    از این کد استفاده کن

    type
    PNetResourceArray = ^TNetResourceArray;
    TNetResourceArray = array[0..100] of TNetResource;

    function CreateNetResourceList(ResourceType: DWord;
    NetResource: PNetResource;
    out Entries: DWord;
    out List: PNetResourceArray): Boolean;
    var
    EnumHandle: THandle;
    BufSize: DWord;
    Res: DWord;
    begin
    Result := False;
    List := Nil;
    Entries := 0;
    if WNetOpenEnum(RESOURCE_GLOBALNET,
    ResourceType,
    0,
    NetResource,
    EnumHandle) = NO_ERROR then begin
    try
    BufSize := $4000; // 16 kByte
    GetMem(List, BufSize);
    try
    repeat
    Entries := DWord(-1);
    FillChar(List^, BufSize, 0);
    Res := WNetEnumResource(EnumHandle, Entries, List, BufSize);
    if Res = ERROR_MORE_DATA then
    begin
    ReAllocMem(List, BufSize);
    end;
    until Res <> ERROR_MORE_DATA;

    Result := Res = NO_ERROR;
    if not Result then
    begin
    FreeMem(List);
    List := Nil;
    Entries := 0;
    end;
    except
    FreeMem(List);
    raise;
    end;
    finally
    WNetCloseEnum(EnumHandle);
    end;
    end;
    end;

    procedure ScanNetworkResources(ResourceType, DisplayType: DWord; List: TStrings);

    procedure ScanLevel(NetResource: PNetResource);
    var
    Entries: DWord;
    NetResourceList: PNetResourceArray;
    i: Integer;
    begin
    if CreateNetResourceList(ResourceType, NetResource, Entries, NetResourceList) then try
    for i := 0 to Integer(Entries) - 1 do
    begin
    if (DisplayType = RESOURCEDISPLAYTYPE_GENERIC) or
    (NetResourceList[i].dwDisplayType = DisplayType) then begin
    List.AddObject(NetResourceList[i].lpRemoteName,
    Pointer(NetResourceList[i].dwDisplayType));
    end;
    if (NetResourceList[i].dwUsage and RESOURCEUSAGE_CONTAINER) <> 0 then
    ScanLevel(@NetResourceList[i]);
    end;
    finally
    FreeMem(NetResourceList);
    end;
    end;

    begin
    ScanLevel(Nil);
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    Form1.Cursor := crHourGlass;
    Button1.Cursor := crHourGlass;
    ScanNetworkResources(RESOURCETYPE_DISK, RESOURCEDISPLAYTYPE_SERVER, ListBox1.Items);
    form1. Cursor := crDefault;
    end;


  5. #5
    کاربر دائمی آواتار delphi5
    تاریخ عضویت
    تیر 1385
    محل زندگی
    تهران
    پست
    350
    منظورم اینه که چطور آدرس my network Place یا my document یا desktop یوزر فعال را بدست بیاورم .

  6. #6
    کاربر دائمی
    تاریخ عضویت
    آبان 1386
    محل زندگی
    تهران
    پست
    159
    چرا از توی رجیستری نمی خونی؟

  7. #7
    منظورم اینه که چطور آدرس my network Place یا my document یا desktop یوزر فعال را بدست بیاورم .
    SHGetSpecialFolderPath در یونیت ShlObj.

    توضیحات مربوط به این تابع API و لیست CSIDL های مرتبط با آن را هم می تونید از MSDN بگیرید.


    وَ سَيَعْلَمُ الَّذِينَ ظَلَمُوا [آل محمد حقهم] أَيَّ مُنْقَلَبٍ يَنْقَلِبُونَ - الشعراء (227)
    و ظالمین [حق آل محمد (ص) ] به زودی خواهند دانست که به کدام بازگشتگاه بازخواهند گشت.

  8. #8

    نقل قول: دسترسی به my network place

    سلام
    این تاپیک قدیمه

    ولی من بهش نیاز دارم.

    من از کدهای پست 4 که همه جای اینترنت گفته شده استفاده کردم واسه نمایش لیست کامپیوترهای workGroup
    ویندوزم seven هست البته رو xp هم تست کردم ولی هیچیو بهم نمایش نمیده !!! چرا ؟ باید چی کار کنم ؟

    راه حل های دیگه رو هم تست کردم ولی هیچ کدوم هیچیو بهم نمایش نمیدن

  9. #9

    نقل قول: دسترسی به my network place

    از کد زیر استفاده کنید:
    type
    PNetResourceArray = ^TNetResourceArray;
    TNetResourceArray = array [0 .. 100] of TNetResource;
    function CreateNetResourceList(ResourceType: DWord; NetResource: PNetResource;
    out Entries: DWord; out List: PNetResourceArray): Boolean;
    var
    EnumHandle: THandle;
    BufSize: DWord;
    Res: DWord;
    begin
    Result := False;
    List := Nil;
    Entries := 0;
    if WNetOpenEnum(RESOURCE_GLOBALNET, ResourceType, 0, NetResource, EnumHandle)
    = NO_ERROR then
    begin
    try
    BufSize := $4000; // 16 kByte
    GetMem(List, BufSize);
    try
    repeat
    Entries := DWord(-1);
    FillChar(List^, BufSize, 0);
    Res := WNetEnumResource(EnumHandle, Entries, List, BufSize);
    if Res = ERROR_MORE_DATA then
    begin
    ReAllocMem(List, BufSize);
    end;
    until Res <> ERROR_MORE_DATA;
    Result := Res = NO_ERROR;
    if not Result then
    begin
    FreeMem(List);
    List := Nil;
    Entries := 0;
    end;
    except
    FreeMem(List);
    raise;
    end;
    finally
    WNetCloseEnum(EnumHandle);
    end;
    end;
    end;
    procedure ScanNetworkResources(ResourceType, DisplayType: DWord;
    List: TStrings);
    procedure ScanLevel(NetResource: PNetResource);
    var
    Entries: DWord;
    NetResourceList: PNetResourceArray;
    i: Integer;
    begin
    if CreateNetResourceList(ResourceType, NetResource, Entries,
    NetResourceList) then
    try
    for i := 0 to Integer(Entries) - 1 do
    begin
    if (DisplayType = RESOURCEDISPLAYTYPE_GENERIC) or
    (NetResourceList[i].dwDisplayType = DisplayType) then
    begin
    List.AddObject(NetResourceList[i].lpRemoteName,
    Pointer(NetResourceList[i].dwDisplayType));
    end;
    if (NetResourceList[i].dwUsage and RESOURCEUSAGE_CONTAINER) <> 0 then
    ScanLevel(@NetResourceList[i]);
    end;
    finally
    FreeMem(NetResourceList);
    end;
    end;
    begin
    ScanLevel(Nil);
    end;
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    ScanNetworkResources(RESOURCETYPE_DISK, RESOURCEDISPLAYTYPE_SERVER,
    ListBox1.Items);
    end;
    فایل های ضمیمه فایل های ضمیمه

  10. #10

    نقل قول: دسترسی به my network place

    سلام

    ممنون بابت توجهتون

    من کدی که شما گذاشته بودید رو هم جایگزین کردم هر چند که هیچ تفاوتی نداشت ولی بازم تو لیست باکس هیچیو نمایش نمیده.

    حتی exe خودتون رو هم اجرا کردم ولی هیچ جوابی نگرفتم.
    این exe باید تو مسیر خاصی اجرا بشه؟

    وقتی برنامه رو تریس میکنم تعداد entrie ها رو سه نشون میده که تعداد کامپیوترهام تو شبکه هست ولی هیچیو تو لیست باکس برنمیگردونه !!!!

    چرا ؟
    آخرین ویرایش به وسیله taha2005 : پنج شنبه 18 فروردین 1390 در 10:04 صبح

  11. #11

    نقل قول: دسترسی به my network place

    برنامه ای که قرار داده ام به درستی کار می کند. نکته : اگر شما می خواهید دو کامپیوتر A و B را با هم شبکه کنید باید آی پی یکی از این دو را در خاصیت Defual Gateway دیگری وارد کنید.

    در زیر هم تصاویری را از اجرا شدن برنامه می توانید مشاهده کنید.
    عکس های ضمیمه عکس های ضمیمه

  12. #12

    نقل قول: دسترسی به my network place

    اگر شما می خواهید دو کامپیوتر A و B را با هم شبکه کنید باید آی پی یکی از این دو را در خاصیت Defual Gateway دیگری وارد کنید.
    درست نیست!
    Default Gateway ربطی به شبکه کردن کامپیوترها با هم نداره، بلکه مشخص میکنه که چه کامپیوتری دروازه ورود و خروج کامپیوترهای اون شبکه با سایر شبکه ها ست؛ به عنوان مثال، اگر فقط یک کامپیوتر به اینترنت دسترسی داشته باشه، و بخواد اتصال اینترنتش را با سایر کامپیوترها به اشتراک بزاره، سایر کامپیوترهای داخل اون شبکه باید Default Gateway خودشون رو روی آدرس اون کامپیوتر خاص تنظیم کنند.


    وَ سَيَعْلَمُ الَّذِينَ ظَلَمُوا [آل محمد حقهم] أَيَّ مُنْقَلَبٍ يَنْقَلِبُونَ - الشعراء (227)
    و ظالمین [حق آل محمد (ص) ] به زودی خواهند دانست که به کدام بازگشتگاه بازخواهند گشت.

  13. #13

    نقل قول: دسترسی به my network place

    درست نیست!
    Default Gateway ربطی به شبکه کردن کامپیوترها با هم نداره، بلکه مشخص میکنه که چه کامپیوتری دروازه ورود و خروج کامپیوترهای اون شبکه با سایر شبکه ها ست؛ به عنوان مثال، اگر فقط یک کامپیوتر به اینترنت دسترسی داشته باشه، و بخواد اتصال اینترنتش را با سایر کامپیوترها به اشتراک بزاره، سایر کامپیوترهای داخل اون شبکه باید Default Gateway خودشون رو روی آدرس اون کامپیوتر خاص تنظیم کنند.
    این مطلب رو میدونم. من موقع تست برنامنه بالا متوجه شدم که اگر defaultGateway رو تنظیم نکنم نمیتوانم کامپیوتر مورد نظر رو در work group ببینم. توجه داشته باشید که نکته ای که گفتم فقط در ارتباط با برنامه مذکور بوده است. همین...

  14. #14

    نقل قول: دسترسی به my network place

    حتی اگه این مطلبی که شما فرمودید هم درست باشه!! من نمیتونم همچین کاری رو از یوزرهام بخوام که انجام بدن.

    شما برنامه رو تو چه ویندوزی تست میکنید ؟ seven یا xp ؟

    راهکار دیگه ای نیست؟

  15. #15

    نقل قول: دسترسی به my network place

    شما برنامه رو تو چه ویندوزی تست میکنید ؟ seven یا xp ؟
    در XP
    راهکار دیگه ای نیست؟
    نمی دونم،من سعی می کنم که جوابی برای این مسئله پیدا کنم.

تاپیک های مشابه

  1. مشکل ajax شدن content place holder در master page
    نوشته شده توسط ali_yousefian19 در بخش ASP.NET Web Forms
    پاسخ: 3
    آخرین پست: چهارشنبه 19 اسفند 1388, 20:43 عصر
  2. Place Code in Separate File
    نوشته شده توسط ClaimAlireza در بخش ASP.NET Web Forms
    پاسخ: 4
    آخرین پست: جمعه 29 دی 1385, 23:58 عصر
  3. +Network
    نوشته شده توسط gigihamedino در بخش امنیت در شبکه
    پاسخ: 1
    آخرین پست: شنبه 23 اردیبهشت 1385, 13:29 عصر
  4. +Network
    نوشته شده توسط gigihamedino در بخش شبکه و Networking‌
    پاسخ: 0
    آخرین پست: پنج شنبه 14 اردیبهشت 1385, 22:51 عصر
  5. NETWORK
    نوشته شده توسط DARIUSH_M در بخش شبکه و Networking‌
    پاسخ: 3
    آخرین پست: پنج شنبه 07 اردیبهشت 1385, 13:28 عصر

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •