S.A.
Arkadaşlar sorumu nasıl soracağım bilmiyorum oyüzden yapmak istediğimi anlatıyorum. Program içinden server üzerinde bir klasöre dosya kopyalayacağım bu işi yapabilmek için server üzerinde o klasörü paylaşıma açmam gerekli dolayısı ile ulaşılabilir olacak. ancak şöyle birşey yapmam gerekli sadece program a özel bir kullanıcı açacağım ve tam yetki olacak program içinde bu klasöre dosya kopyalarken o klasöre istediğim kullanıcı adı ile bağlanma imkanım varmı. Sorunumu anlatabildiysem önerebileceğiniz daha başka bir mantık varmı
Klasöre kullanıcı bazlı bağlantı kurma
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Klasöre kullanıcı bazlı bağlantı kurma
Procedure Forum.Imza(Sender: TObject)
Begin
ShowMessage('Her türlü fikire, Her zaman açığım')
End;
Begin
ShowMessage('Her türlü fikire, Her zaman açığım')
End;
Re: Klasöre kullanıcı bazlı bağlantı kurma
anlattığınız işlemler bir işletim sisteminin dosya kontrolü veya shell erişimi gibi kodlarıyla ilgili
yani bir işletim sistemi yazmak gibi bir şey
zaten client server işlemleri başlı başına bir mini işletim sistemi sayılabilir
dosya kopyalama için ayrı bir kod
dosya silmek için ayrı bir kod
dosya taşımak için ayrı bir kod
dosyaya yazma hakkı için ayrı bir kod
erişim hakkı için ayrı bir kod
dosya bilgilerinin kullanıcıya iletilmesi için ayrı bir kod
dosya üzerinde bazı değişiklik yapmak için ayrı bir kod
kullanıcı ara yüzünü oluştırmak için ayrı bir kod
servera güncelleme dosya transferi yapmak için ayrı bir kod
sağ click için ayrı bir kod
sol click için ayrı bir kod
Dbl click için ayrı bir kod
vs.. vs...
yani uzak bir serverde yapılan her türlü işlem aslında kendi bilgisayarınızda simule edilir
simule edilen (yani canlandırma) işlemler bir stringe atanarak socketten internete gönderilir
alıcı taraftaki bilgisayar gelen bu stringi if else yordamlarında değerlendirerek
silme yapıştırma , kesme ,kopyalama, adüzeltme sağ click, sol click gibi işlemleri orda gerçekleştirir.
yani biz burda sağ click yaptığımızda mesela "sagclick" adında bir string internete uzaktaki ilgili bilgisayarın portuna yazılır
server yüklü bilgisayardaki yazılım "sagclick" stringini alır if socket.receivetext = sagclick then begin
mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);
gibi bir komut satırını çalıştırı
eğer ordaki görüntüyü görebilirsek oraya sağ clicklediğimizi sanırız
yani bir işletim sistemi yazmak gibi bir şey
zaten client server işlemleri başlı başına bir mini işletim sistemi sayılabilir
dosya kopyalama için ayrı bir kod
dosya silmek için ayrı bir kod
dosya taşımak için ayrı bir kod
dosyaya yazma hakkı için ayrı bir kod
erişim hakkı için ayrı bir kod
dosya bilgilerinin kullanıcıya iletilmesi için ayrı bir kod
dosya üzerinde bazı değişiklik yapmak için ayrı bir kod
kullanıcı ara yüzünü oluştırmak için ayrı bir kod
servera güncelleme dosya transferi yapmak için ayrı bir kod
sağ click için ayrı bir kod
sol click için ayrı bir kod
Dbl click için ayrı bir kod
vs.. vs...
yani uzak bir serverde yapılan her türlü işlem aslında kendi bilgisayarınızda simule edilir
simule edilen (yani canlandırma) işlemler bir stringe atanarak socketten internete gönderilir
alıcı taraftaki bilgisayar gelen bu stringi if else yordamlarında değerlendirerek
silme yapıştırma , kesme ,kopyalama, adüzeltme sağ click, sol click gibi işlemleri orda gerçekleştirir.
yani biz burda sağ click yaptığımızda mesela "sagclick" adında bir string internete uzaktaki ilgili bilgisayarın portuna yazılır
server yüklü bilgisayardaki yazılım "sagclick" stringini alır if socket.receivetext = sagclick then begin
mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);
gibi bir komut satırını çalıştırı
eğer ordaki görüntüyü görebilirsek oraya sağ clicklediğimizi sanırız
http://www.delphibasics.co.uk/RTL.asp?Name=DaysBetween
http://www.neonhaber.com/Static/mega-co ... index.html
www.delphican.con
Function PARSE( text, ilk, son:String ): String; //
begin
Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
Result := Copy(Text, 1, Pos(Son, Text)-1);
end;
http://www.neonhaber.com/Static/mega-co ... index.html
www.delphican.con
Function PARSE( text, ilk, son:String ): String; //
begin
Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
Result := Copy(Text, 1, Pos(Son, Text)-1);
end;