Sieć » LAN

Jak skopiowac plik z innego komputera w sieci LAN nie uzywajac ZADNEGO komponentu

  • 2006-01-23 10:24
  • 12 komentarzy
  • 1067 odsłon
  • Oceń ten tekst jako pierwszy
var
komputer : string;
dysk : string;
plik : string;
sciezka : string;
 
begin
komputer := 'HAL'; //nazwa komputera
dysk := 'C'; //nazwa dysku (tak jak jest udostepniona)
plik := 'kupa.bmp'; //plik ze sciezki (oczywiscie moze byc takze w innym folderze)
sciezka := '\'+komputer+''+dysk+''+plik;
copyfile(PChar(sciezka), 'C:\kupa.bmp', true);
end;

12 komentarzy

MikiKam 2005-12-03 21:06

No a ja mam 14 :D
Poducz się trochę i wtedy pogadamy :P
Ps.:
Popraw błędy :D

delphowiec 2004-11-08 16:56

Czyli ma być tak ???????

var
komputer : string;
dysk : string;
plik : string;
sciezka : string;


begin

komputer := 'HAL' ;//nazwa komputera
dysk := 'C';//nazwa dysku (tak jak jest udostepniona)
plik := 'kupa.txt';//plik ze sciezki (oczywiscie moze byc takze w innym folderze)

sciezka :=+komputer+ +dysk+ ''+ plik;

copyfile(PChar(sciezka),'C:\kupa.txt', true);

end;

delphowiec 2004-11-08 16:52

Proponawał bym napisać to jeszcze raz bo teraz nie wiem czy to działa czy nie
czy ma bys Char czy String :D

Rookie One 2004-07-09 14:13

Nie dziala, bo jest tak:

copyfile(plik, 'C:kupa.bmp', true);

A powinno byc:
copyfile(sciezka, 'C:kupa.bmp', true);

Snowak 2004-05-08 11:21

Nie dziala....

prabab 2003-09-15 21:35

Ech... wiecie co... mam 11 lat :D

Piro 2003-09-08 22:16

Maleńka nieścisłość:
PChar to nie to samo co Char.
Typ Char jest typem prostym - znakowym.
Reprezentuje jednobajtowe znaki ANSI, obecnie w Delphi jest równoważny z typem AnsiChar.
Natomiast typ PChar jest wskaźnikiem do ciągu znaków typu Char, zakończonego bajtem zerowym (null-terminated string).
"Polecenie" PChar(plik) to rzutowanie zmiennej (właściwie to jej wartości) plik (typu String - po modyfikacji oczywiście) na typ PChar.
Średniki to bardzo ważna rzecz ;)
I znaki dodawania też...

sciezka := '\'+komputer+''+dysk+''plik;

zamień na
sciezka := '\'+komputer+''+dysk+''+plik;

Bardzo polecam lekturę pomocy do Delphi - naprawdę warto...
Pozdrofka :)

sekcja2 2003-09-03 13:04

oki, a jak znalezc jakis komputer w sieci? albo jak zrobic liste dostepnych komputerow w sieci Microsoft network?

darkjames 2003-08-31 16:54

zamien : copyfile(plik, 'C:\kupa.bmp', true);
na : copyfile(PChar(sciezka), 'C:\kupa.bmp', true);
Oraz wszystkie zmienne daj do jednej linijki podostawiaj ';' i zmien typy z  PAnsiiChar na stringi

tomidze 2003-08-30 18:47

Jak już wspomniałem w innym miejscu, potrafisz zabłysnąć :-)
Nie zapominaj tylko o średnikach, a wszystko będzie ok.
U mnie Delphi się trochę pluje o typ PAnsiiChar. Zamiast tego możesz użyć typu String i koniecznie w funkcji copyfile(...) zmienną plik rzutować na na typ Char poprzez polecenie PChar(plik).
Powodzenia