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

prabab
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;
LAN

12 komentarzy

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

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;

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

Nie dziala, bo jest tak:

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

A powinno byc:

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

Nie dziala....

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

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 :)

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

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

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