Ĺadny brzuch
napisałem taki program który odczytuje plik a później go edytuje po wpisaniu poprawnego hasła. Zapisuje te dane do lokalnego pliku. Czy można umieścić plik na serwerze FTP a później odczytywać go za pomocą tego samego programu??
Oto kod programu:
program cw4_15; uses Crt; const TajneHaslo = '6a6b6c'; NazwaPliku = 'WOW.HKT'; var PodaneHaslo : String; F : Text; Wiersz : String; function PodajHaslo : String; { Funkcja czyta haslo bez wyswietlania go na ekranie. } var Haslo : String; Znak : Char; begin Haslo := ''; repeat Znak := ReadKey; if (Znak <> #13) then begin Write ('*'); Haslo := Haslo + Znak; end; until Znak = #13; PodajHaslo := Haslo; end; {----------------------------------- PodajHaslo -} begin ClrScr; Write ('Podaj haslo: '); PodaneHaslo := PodajHaslo; Writeln; if PodaneHaslo = TajneHaslo then begin ClrScr; Assign (F, NazwaPliku); Reset (F); while not Eof(F) do begin Readln (F, Wiersz); Writeln (Wiersz) end; Close (F); Readln; Writeln ('Odpowiedz'); ClrScr; Assign (F, NazwaPliku); Rewrite (F); repeat Readln (Wiersz); if Wiersz<>'' then Writeln (F, Wiersz); until Wiersz =''; Close (F); Writeln ('Zapisywanie do pliku zakonczono.'); Readln; end. else Writeln ('Nie jestes z grupy', Readln; end.
Korzystam z Free Pascal IDE
Gdybyś używał Object Pascala >> Delphi to wtedy mógłbyś użyć biblioteki INDY... a do samego Pascala to raczej pomocy nie na ten temat nie znajdziesz...
http://curl.haxx.se/libcurl/pascal/
albo
http://support.microsoft.com/kb/555976
I masz wszystko..
A czy podpowie mi ktoś jak przerobić ten program powyżej aby użyć cURL??
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Oto kod programu:
program cw4_15; uses Crt; const TajneHaslo = '6a6b6c'; NazwaPliku = 'WOW.HKT'; var PodaneHaslo : String; F : Text; Wiersz : String; function PodajHaslo : String; { Funkcja czyta haslo bez wyswietlania go na ekranie. } var Haslo : String; Znak : Char; begin Haslo := ''; repeat Znak := ReadKey; if (Znak <> #13) then begin Write ('*'); Haslo := Haslo + Znak; end; until Znak = #13; PodajHaslo := Haslo; end; {----------------------------------- PodajHaslo -} begin ClrScr; Write ('Podaj haslo: '); PodaneHaslo := PodajHaslo; Writeln; if PodaneHaslo = TajneHaslo then begin ClrScr; Assign (F, NazwaPliku); Reset (F); while not Eof(F) do begin Readln (F, Wiersz); Writeln (Wiersz) end; Close (F); Readln; Writeln ('Odpowiedz'); ClrScr; Assign (F, NazwaPliku); Rewrite (F); repeat Readln (Wiersz); if Wiersz<>'' then Writeln (F, Wiersz); until Wiersz =''; Close (F); Writeln ('Zapisywanie do pliku zakonczono.'); Readln; end. else Writeln ('Nie jestes z grupy', Readln; end.
Korzystam z Free Pascal IDE
Gdybyś używał Object Pascala >> Delphi to wtedy mógłbyś użyć biblioteki INDY... a do samego Pascala to raczej pomocy nie na ten temat nie znajdziesz...
http://curl.haxx.se/libcurl/pascal/
albo
http://support.microsoft.com/kb/555976
I masz wszystko..
A czy podpowie mi ktoś jak przerobić ten program powyżej aby użyć cURL??