| Sl@Sh |
| Отправлено: 26.08.2005, 15:19 |
|
Мастер участка
Группа: Участник
Сообщений: 383
|
Hi Bi !
Решил освоить компоненты Indy. Однако в хелпе толкового ничего нет (да и английский язык плоховато знаю). Вот и решил обратится за помощью. Если у кого есть какая-то инфа на русском про эти компоненты, скинте ссылочку в этот топик пожалуйста.
Не думайте что мне самому по нету ходить облом. Просто это может сократить время поиска. + в интернете долго сидеть не могу (есть причины).
P.S.: Скинутые линки не только мне помогут. А кому-то еще.
Заранее спасибо !
|
|
| Лена |
| Отправлено: 26.08.2005, 15:28 |
|
Мастер участка
Группа: Участник
Сообщений: 501
|
Отправка и прием файлов с помощью Indy
| CODE |
Отправка:
if(OpenDialog1->Execute())
{
try
{ IdTCPClient1->Port=1200;
IdTCPClient1->Host=Edit1->Text;
IdTCPClient1->Connect();
IdTCPClient1->WriteLn(OpenDialog1->FileName);
IdTCPClient1->WriteFile((OpenDialog1->FileName),true);
IdTCPClient1->Disconnect();
}
catch(...)
{
ShowMessage("Ошибка");
return;
}
}
//--------------------------------------------------------------------------------
Прием:
--------------------------------------------------------------------------------
void __fastcall TForm1::IdTCPServer1Execute(TIdPeerThread *AThread)
{
AnsiString C_Path = "C:\\CHAT\\" + ExtractFileName(AThread->Connection->ReadLn());
TFileStream *f;
if(!FileExists(C_Path)){
f = new TFileStream(C_Path,fmCreate);
}
else
{
f = new TFileStream(C_Path,fmOpenWrite);
}
AThread->Connection->ReadStream(f,-1,true);
delete f;
}
|
|
|
| Sl@Sh |
| Отправлено: 26.08.2005, 15:43 |
|
Мастер участка
Группа: Участник
Сообщений: 383
|
Вот в процессе поиска нашел :
http://www.lib.csu.ru/dl/bases/prg/kompres...s/2002_03_indy/
http://www.lib.csu.ru/dl/bases/prg/kompres...indy/index1.htm
http://www.interface.ru/fset.asp?Url=/borl.../razrprknd1.htm
to Лена — Спасибо !
Отредактировано Sl@Sh — 26/08/2005, 18:11
|
|
