NetShare - Dateien im LAN verschicken

[jfheins]

Das Programm verschickt Dateien im LAN.

Es ist nur ein Programm, da hier Client und Server in einer Datei sind und sich immer abwechseln,
soll heißen:
Das Programm läuft auf jedem Computer und ist Standardmäßig Server.
Wenn jemand dann eine Datei verschicken möchte, wählt er Sie aus, schreibt eine kurze Beschreibung dazu und wählt den Empfänger aus. Nachdem er dann auf Senden geklickt hat, wird das Programm zum Client und sendet die Datei an den Empfänger.

Bisher ist es erst eine Beta, ToDoList:

Automatisches suchen von möglichen Empfängern (fertig, tnx to Luckie)

In Systray/TNA/"Bereich direkt links neben der Uhr" minimieren (fertig thx to Luckie)

Frage, ob die Datei angenomen werden soll

Sendebestätigung

Bitte um Bugreports, Meinungen, Anregungen, usw.

Edit: neue Version ...

Wer sich etwas besser mit Delphi auskennt könnte mal den Source überprüfen, man kann im moment nähmlich nur Textdateien (.txt, .pas, usw.) verschicken ...

[vlees91]

Zitat von iaby:

ich hab mir den code mal kurz angeschaut:
du versendest die datei ja per WriteLn, wenn ich das richtig gesehen habe.
soweit ich weiß, zerstückelt die jedoch eine zeile, sobald der char #13 oder #10 auftaucht.
es gibt aber noch eine andere möglichkeit, eine datei direkt zu übertragen. musst mal hier im forum suchen.

zudem sind viele variablen global deklariert, also gleich am anfang. die meisten müssen dies aber nicht, soviel ich gesehen habe (z.B. : "datei").
wenn du das noch ändern würdest, wäre der code nochmals verständlicher

ausprobiert hab ich das tool nocht nicht, nur unter linux in den source geschaut, deshalb kann ich dazu nix sagen!

gruss,
iaby

es gibt ein tutorial, wo zwei dateien verschickt werden(mit WriteStream)

zuerst wird die DAtei in einen Stream geladen und dann mit WriteStream gesendet. Der Empfänger liest den Stream aus und speichert ihn