سلام خدمت همه دوستان
من با دلفي و اكسس يه برنامه را دارم مينويسم اين برنامه بايد تحت شبكه جواب بده . تا حالا برنامه تحت شبكه كار نكردم ممنون ميشم دوستان راهنمايي كنند.
براي استفاده بايد بانكش را روي كامپيوتري با ويندوز سرور قرار بدم يا مثلا ميشه روي دستگاهي كه ويندوز اكس پي هم داره گذاشت و شي ير كرد و كلاينتها بهش دسترسي داشته باشند .
يه سوال هم در مورد كار با رشته تو دلفي دارم:
در حقيقت تعدادي نامه داريم كه ميخام اونا را توي بانكي ذخيره كنم . امكان جستجو و ... هم داشته باشه
اپراتوري كه نامه ها را وارد ميكنه مسيري كه اسكن شده نامه در اونجا هست را تو بانك ذخيره ميكنه حالا من ميخام موقع ذخيره شدن مسير اسم كامپيوتر را اول اون قرار بده تا بقيه كه ميخوان از شبكه نامه ها را ببينند و آدرسي كه فايل اسكن شده اونجاست را بايد اين مدلي بنويسم يعني قبل از اسم كامپيوتر \\ بايد باشه
كد زير را نوشتم ولي موقع اجرا \\ ميره آخر عبارت . به نظرتون چه كنم
من با دلفي و اكسس يه برنامه را دارم مينويسم اين برنامه بايد تحت شبكه جواب بده . تا حالا برنامه تحت شبكه كار نكردم ممنون ميشم دوستان راهنمايي كنند.
براي استفاده بايد بانكش را روي كامپيوتري با ويندوز سرور قرار بدم يا مثلا ميشه روي دستگاهي كه ويندوز اكس پي هم داره گذاشت و شي ير كرد و كلاينتها بهش دسترسي داشته باشند .
يه سوال هم در مورد كار با رشته تو دلفي دارم:
در حقيقت تعدادي نامه داريم كه ميخام اونا را توي بانكي ذخيره كنم . امكان جستجو و ... هم داشته باشه
اپراتوري كه نامه ها را وارد ميكنه مسيري كه اسكن شده نامه در اونجا هست را تو بانك ذخيره ميكنه حالا من ميخام موقع ذخيره شدن مسير اسم كامپيوتر را اول اون قرار بده تا بقيه كه ميخوان از شبكه نامه ها را ببينند و آدرسي كه فايل اسكن شده اونجاست را بايد اين مدلي بنويسم يعني قبل از اسم كامپيوتر \\ بايد باشه
كد زير را نوشتم ولي موقع اجرا \\ ميره آخر عبارت . به نظرتون چه كنم
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;
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;
