Datei runterladen Server Client ??

[Vader]

hallo,
habe zuhause ein kleines netzwerk, und habe mir da ein server client
( winsocks ) programmiert.
mit dem kann ich chatten und andere spielereien.
jetzt würde ich gerne eine datei von einen anderen rechner
runterladen, aber da müßte ich auf meinen client seine laufwerke in ein image laden oder wie, das ist die große frage:
wie kann ich die laufwerke sehen und wie geht das runterladen einer ausgwählten datei auf meinen rechner.


mfg vader

[Vader]

kann mir niemand helfen

mfg vader

[ISAS]

Kann dir leider nich helfen , aber das tutorial auf www.delphi-treff.de kennst du sicher schon. Du hast auch schon geschafft, ein Chatprogramm zu machen. Nun müsstest du statt Zeichen und Commandos, Datein verschicken. Bei dem Chat-Programm ist es ja so, dass du, wenn du einen Text schreibst, er den String auf den anderen Computer schickt. Das macht er aber nur, wenn du auf "Send" geklickt hast. Nun müsstest du halt in dein Programm schreiben, dass er bei irgendeiner Procedure die "Send"-function auslöst. Hoffe das dir das ein bisschen hilft. Wenn du Datein im Sinne von Textdatein meinst, dann verschick doch einfach das, was sich in der Textdatei befindet und dann soll Delphi ein neues Textfile mit dem Text erstelln. Bei Bildern bin ich leider überfragt. Vielleicht ises eine Denkhilfe.

/Edit: Sorry, hab vergessen, es handelt sich um Bilder, trotzdem. Vielleicht kommst drauf
/Edit2: Hilft dir das weiter: Delphi-Praxis URL )

@Vader: Wer mal schauen, was ich so finde. Bin nämlich an dem Thema interessiert, weil ich das für mein Spiel auch brauche. Ist deins zufällig ein Rollenspiel? Wenn ja, dann kannst du mir vielleicht helfen. Meins handelt von DelphiX, Maus und DoCollison (Pushable). Mein Problem. Also, sag dir dann bescheid, wenn ich was gefunden habe.

ISAS!

[Vader]

nein ist kein spiel,

hab mir dein problem angeschaut aber bei spieleprogrammierung hab ich
leider überhaupt keine ahnung.


mfg vader

[S2B]

Zitat:

aber da müßte ich auf meinen client seine laufwerke in ein image laden oder wie, das ist die große frage

Ich versteh nicht ganz, was du machen willst. Willst du ein Image über das Netzwerk verschicken oder eine andere Datei von dem anderen Rechner ziehen? Kannst du mich bitte aufklären ?
Grüße S2B

[Vader]

hallo S2B,
hab mich total falsch ausgedrückt,was ich will ist das.
ich möchte das der server auf dem anderen rechner das laufwerk c:\
in einen string speichert und den string dann den client schickt und der client soll diesen in einen treeview oder memo anzeigen.
hab da so eine funktion für das auslesen des verzeichniss aber die funzt nicht.

Code:

function GetFolders( path : string ) : string; 
var 
  searchRec : TSearchRec; 
begin 
  result := ''; 

  if ( FindFirst( path, $00000010, searchRec ) = 0 ) then begin 
    while FindNext( searchRec ) = 0 do begin 
      if ( ( searchRec.Attr and $00000010 ) = searchRec.Attr ) then 
        result := result + searchRec.Name + '|'; 
    end; 

    FindClose( searchRec ); 
  end; 

  Delete( result, length( result ), 1 ); 
end; 

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.lines.add(GetFolders('C:\Windows')); 
  end;

mfg vader

[Vader]

ja nochwas vergessen,

dann würde ich eine datei auswählen und vom serverrechner eine
datei runterladen.


mfg vader