[Delphi] Wysylanie pliku przez sockety

0

Witam, dzis mam taki problem:

Chciałem napisać mały programik, który otworzy server na kompie na jakimstam okreslonym porcie, i zaczeka na pierwszego polaczonego klienta. Potem, gdy klient wysle tekst "start", program wysle do niego okreslony w jakiejś stałej plik. To w zasadzie wszystko, oczywiscie zagadnienie jest tak banalne ze od razu znalazłem w serwisie 4programmers jakis artykuł na temat "przesyłanie pliku przez sockety", no i w dziale downloads plik "Socket2.rar", ale to co tam ujrzałem, było zbyt skomplikowane, pełnofunkcjonalny program, który był w takim stopniu zintegrowany pomiędzy swoimi modułami wysyłania-odbierania itp, że ciężko to rozdzielic... Czy ktos potrafi napisać mi procedure, która wklejona jako "ServerSocket1.onClientRead" zareagowałaby na przychodzący pakiet z tekstem "start" wysłaniem danego pliku do podłączonego klienta? Jednoczesnie potrzebowałbym procedure do wklejenia w programie Klient, która ten plik odbierze i zapisze na dysku... Wiem że dla niektórych mistrzów bywających na tym forum jest to tak banalne ze niechce sie pisać, ale błagam, POMOZCIE...

ps. Prosze tylko nie odsyłajcie do artykułów w serwisie i download'u. ^^

0

Ale niestety... takie coś juz bylo :(

1 użytkowników online, w tym zalogowanych: 0, gości: 1