Client-Server app.?

[JAKOB_BG]

merhaba arkadaslar,
BC++ Builderde Client-Server prog. yazmaya calisiyorum fakat TserverSocket ile dosya transferi yapmayi bilmiyorum yardimci olursaniz sevinirim...Ornek kodlar olursa daha da cok sevinirim :D
Saygilarimla

[Kozan]

TFileStream, TNMStrm ve TNMStrmServ ile yaptığım basit bir örnek (verimli bir transfer yöntemi değildir, yol göstermesi açısından yazdım, yer alan bileşenleri uygun olarak formuna yerleştirip deneyebilirsin):


Gönderen:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(OpenDialog1->Execute()!=NULL){
OpenDialog1->Execute();
Edit1->Text=OpenDialog1->FileName;
//gonderilecek dosyayi sectik ve Edit1 e yolunu yazdik
}

}


void __fastcall TForm1::Button2Click(TObject *Sender)
{
TFileStream *FileStream;
FileStream = new TFileStream(Edit1->Text, fmOpenRead);
NMStrm1->Host = Edit2->Text;
//Edit2ye gonderecegimiz Ip/Host girilecek
NMStrm1->FromName = ExtractFileName(Edit1->Text);
//yukarda sectigimiz dosya
try
{
NMStrm1->PostIt(FileStream);
}
catch (const Exception &e)
{
}

}



Alan:

void __fastcall TForm1::NMStrmServ1MSG(TComponent *Sender,
const AnsiString sFrom, TStream *strm)
{
AnsiString yol = sFrom;

TFileStream *FileStream;
FileStream = new TFileStream(yol, fmCreate);

try

{

FileStream->CopyFrom(strm, strm->Size);

}

catch(const Exception &e)

{

}



Saygılar...