nexpay

را حل براي يه برنامه تحت شبكه

شروع موضوع توسط hpxyz ‏20 دسامبر 2005 در انجمن Delphi

  1. hpxyz

    hpxyz کاربر تازه وارد

    تاریخ عضویت:
    ‏11 می 2004
    نوشته ها:
    90
    تشکر شده:
    0
    سلام خدمت همه دوستان

    من با دلفي و اكسس يه برنامه را دارم مينويسم اين برنامه بايد تحت شبكه جواب بده . تا حالا برنامه تحت شبكه كار نكردم ممنون ميشم دوستان راهنمايي كنند.
    براي استفاده بايد بانكش را روي كامپيوتري با ويندوز سرور قرار بدم يا مثلا ميشه روي دستگاهي كه ويندوز اكس پي هم داره گذاشت و شي ير كرد و كلاينتها بهش دسترسي داشته باشند .

    يه سوال هم در مورد كار با رشته تو دلفي دارم:
    در حقيقت تعدادي نامه داريم كه ميخام اونا را توي بانكي ذخيره كنم . امكان جستجو و ... هم داشته باشه
    اپراتوري كه نامه ها را وارد ميكنه مسيري كه اسكن شده نامه در اونجا هست را تو بانك ذخيره ميكنه حالا من ميخام موقع ذخيره شدن مسير اسم كامپيوتر را اول اون قرار بده تا بقيه كه ميخوان از شبكه نامه ها را ببينند و آدرسي كه فايل اسكن شده اونجاست را بايد اين مدلي بنويسم يعني قبل از اسم كامپيوتر \\ بايد باشه
    كد زير را نوشتم ولي موقع اجرا \\ ميره آخر عبارت . به نظرتون چه كنم


    procedure TFsabt.BtnshowClick(Sender: TObject);

    var
    masir,cname: string;
    begin
    cname:=Get_computer_name ;
    //masir:= dbg1.SelectedRows.Items[2];
    masir := dm1.Table1['path'] ;
    masir:= '\\' + cname +'\'+ masir;
    showmessage(masir);
    ShellExecute(Handle, 'open',PChar(masir),nil,nil,SW_SHOWNORMAL);

    end;​
     
  2. hpxyz

    hpxyz کاربر تازه وارد

    تاریخ عضویت:
    ‏11 می 2004
    نوشته ها:
    90
    تشکر شده:
    0
    :( :( توي اين تاپيك هيچكي جواب مرا نميده . لااقل يه جايي را معرفي كنيد كه اونجا جوابم پيدا بشه
     
zarpopخرید بک لینک عسل طبیعی و گرده گل ایرانیfootbal