Transfer na Failove

Niakoi moje li da mi kaje s koi komponenti ili funkcii moga da predavam failove mejdu prilojenia ot dve PC-ta? (v momenta obmeniam samo tekstovi sypbshtenia mejdu tezi prilojenia)

Ами зависи през какво искаш да ги прекарваш. Дай малко повече информация - ftp, tcp, dcom...

Има едни компоненти - Midware, [линк], с които това може да стане много лесно и елегантно...

Thanks za infoto. Opitvam se da go napravia na Delphi5. Ne mi tribava ftp-dostyp, tcp ili dcom me ustroiva. Ima li Midware-komponenti v Delphi5?
Ako imash niakakva informacia poveche mi pishi na: prob_spam@abv.bg

Не са включени стандартно в Делфи. Трябва да си ги свалиш от адреса горе. Имат си и примерче за трансфер на файлове.

може да пробваш и с TSclientSocket/TServerSocket компонентите
или TTCPClient/TTCPServer или пък с Indy componentite

примерен код с TTCPClient/TTCPServer
***CLIENT SIDE - send file
....
var Strm:TFileStream;
//send file
Strm:=TFileStreamCreate('c:\myfile.txt',fmOpenRead);
Strm.Position := 0;
tcpClient.Socket.SendStream(Strm);
Strm.Free;


*** SERVER SIDE - receive file
handler на OnRead event na TTCPServer
...
var Size:Integer;
Strm:TFileStream;
Buff:Pointer;
begin
//get data size to reveive
Size:=Socket.ReceiveLength;

//create stream to store data
Strm:=TFileStream.Create('c:\myfile',fmCreate);
//get some mem
GetMem(Buff,Size);
//actual data receiving
Socket.ReceiveBuf(Buff^,Size);
//write data to stream
Strm.Write(Buff^,Size);
Strm.Free;
FreeMem(Buff);

.... Не съм сигурен дали кода е напълно точен но идеяата е такава
подобно е и с TSclientSocket/TServerSocket компонентите

Thanks za koda. Obache imam malki problemi! Kaji mi koi komponenti da izpolzvam i kak da gi svyrja, che neshto se obyrkah veche!
Ako reshish pishi na mail:prob_spam@abv.bg
Blagodaria predvaritelno!