![\"\u0420\u0430\u0431\u043e\u0447\u0435\u0435](\"http:\/\/studentpmr.ru\/foto\/2016\/04\/Programma_okno-300x195.jpg\")
<\/a><\/p>\n\u0420\u0438\u0441\u0443\u043d\u043e\u043a 2. \u0420\u0430\u0431\u043e\u0447\u0435\u0435 \u043e\u043a\u043d\u043e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b<\/p>\n
\u0417\u0430\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u0435<\/p>\n
\u041a\u0430\u043a \u0432\u0438\u0434\u043d\u043e \u0438\u0437 \u0440\u0438\u0441\u0443\u043d\u043a\u0430 2 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u0438\u043c\u0435\u0435\u0442 \u043e\u0447\u0435\u043d\u044c \u0434\u043e\u0441\u0442\u0443\u043f\u043d\u044b\u0439 \u0438\u043d\u0442\u0435\u0440\u0444\u0435\u0439\u0441. \u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u043d\u0435 \u0442\u0440\u0435\u0431\u0443\u0435\u0442 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0438, \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u043f\u0440\u043e\u0441\u0442\u043e \u0441\u043a\u043e\u043f\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0438 \u0437\u0430\u043f\u0443\u0441\u0442\u0438\u0442\u044c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443. \u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u043f\u0440\u0435\u0434\u043d\u0430\u0437\u043d\u0430\u0447\u0435\u043d\u0430 \u0434\u043b\u044f \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439 \u0432 \u0432\u043e\u0437\u0440\u0430\u0441\u0442\u0435 \u043e\u0442 12 \u043b\u0435\u0442. \u0414\u0430\u043d\u043d\u044b\u0439 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u043d\u044b\u0439 \u043f\u0440\u043e\u0434\u0443\u043a\u0442 \u00a0\u0437\u0430\u0439\u043c\u0435\u0442 \u0434\u043e\u0441\u0442\u043e\u0439\u043d\u043e\u0435 \u043c\u0435\u0441\u0442\u043e \u0441\u0440\u0435\u0434\u0438 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c \u043f\u043e\u0434\u043e\u0431\u043d\u043e\u0433\u043e \u0442\u0438\u043f\u0430.<\/p>\n
\u0421\u043f\u0438\u0441\u043e\u043a \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c\u043e\u0439 \u043b\u0438\u0442\u0435\u0440\u0430\u0442\u0443\u0440\u044b<\/p>\n
1.\u0413\u0435\u043d\u0440\u0438 \u0423\u043e\u0440\u0440\u0435\u043d \u043c\u043b. \u00ab\u0410\u043b\u0433\u043e\u0440\u0438\u0442\u043c\u0438\u0447\u0435\u0441\u043a\u0438\u0435 \u0442\u0440\u044e\u043a\u0438 \u0434\u043b\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0441\u0442\u043e\u0432\u00bb — \u0412\u0438\u043b\u044c\u044f\u043c\u0441, 2003\u0433.<\/p>\n
2.\u0428\u0438\u043b\u0434\u0442 \u0413 \u00ab\u0421\u043f\u0440\u0430\u0432\u043e\u0447\u043d\u0438\u043a \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0441\u0442\u0430 \u043f\u043e C\/C++\u00bb — \u0412\u0438\u043b\u044c\u044f\u043c\u0441, 2003\u0433.<\/p>\n
3.\u041a\u043e\u043d\u0441\u043f\u0435\u043a\u0442 \u043b\u0435\u043a\u0446\u0438\u0439 \u00ab\u0422\u0435\u0445\u043d\u043e\u043b\u043e\u0433\u0438\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f\u00bb \u041c.\u0412. \u041d\u043e\u0432\u0438\u0447\u0435\u043d\u043a\u043e.<\/p>\n
\u041f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435<\/p>\n
\/\/—————————————————————————<\/p>\n
#include <sys\\stat.h><\/p>\n
#include <vcl.h><\/p>\n
#include <IdGlobal.hpp><\/p>\n
#pragma hdrstop<\/p>\n
#include «Unit1.h»<\/p>\n
#include «Unit2.h»<\/p>\n
#include «Unit3.h»<\/p>\n
\/\/—————————————————————————<\/p>\n
#pragma package(smart_init)<\/p>\n
#pragma resource «*.dfm»<\/p>\n
TForm1 *Form1;<\/p>\n
\/\/—————————————————————————<\/p>\n
__fastcall TForm1::TForm1(TComponent* Owner)<\/p>\n
: TForm(Owner)<\/p>\n
{char* LD[5]={«C:\\\\»,»D:\\\\»,»E:\\\\»,»F:\\\\»,»G:\\\\»};<\/p>\n
String FN,TFN;<\/p>\n
int a=0,b,c,tck;<\/p>\n
StringGrid1->Cells[0][0]=»\u0418\u043c\u044f»;<\/p>\n
StringGrid1->Cells[1][0]=»\u0422\u0438\u043f»;<\/p>\n
DExplorer.Kd=0;<\/p>\n
do<\/p>\n
{FileListBox1->Directory=LD[a];<\/p>\n
if(FileListBox1->Directory==LD[a])<\/p>\n
{Form1->ComboBox1->Items->Add(LD[a]);<\/p>\n
DExplorer.Disk[a]=LD[a];<\/p>\n
DExplorer.Kd++;<\/p>\n
}<\/p>\n
a++;<\/p>\n
}<\/p>\n
while(a<5);<\/p>\n
PostrSpis(ComboBox2->Text);<\/p>\n
ComboBox1->ItemIndex=0;<\/p>\n
FileListBox1->Directory=ComboBox1->Text;<\/p>\n
Edit1->Text=ComboBox1->Text;<\/p>\n
BldTable();<\/p>\n
Label13->Caption=StringGrid1->RowCount-2;<\/p>\n
if(!FileExists(«D:\\\\Options.db»))<\/p>\n
CreateDB();<\/p>\n
Table1->TableName=»D:\\\\Options.db»;<\/p>\n
Table1->Active=true;<\/p>\n
if(Table1->FieldByName(«AcsDat»)->AsString==1)<\/p>\n
CheckBox3->Checked=true;<\/p>\n
else<\/p>\n
CheckBox3->Checked=false;<\/p>\n
if(Table1->FieldByName(«DelFil»)->AsString==1)<\/p>\n
CheckBox1->Checked=true;<\/p>\n
else<\/p>\n
CheckBox1->Checked=false;<\/p>\n
if(Table1->FieldByName(«ImpExp»)->AsString==1)<\/p>\n
CheckBox2->Checked=true;<\/p>\n
else<\/p>\n
CheckBox2->Checked=false;<\/p>\n
Edit3->Text=Table1->FieldByName(«StArch»)->AsString;<\/p>\n
Edit4->Text=Table1->FieldByName(«IP»)->AsString;<\/p>\n
Edit5->Text=Table1->FieldByName(«Port»)->AsString;<\/p>\n
Edit2->Text=Table1->FieldByName(«Name»)->AsString;<\/p>\n
ComboBox2->Items->Add(Edit2->Text);<\/p>\n
ComboBox2->ItemIndex=0;<\/p>\n
Label12->Caption=Table1->FieldByName(«LnF»)->AsString;<\/p>\n
Table1->Active=false;<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::ComboBox1Change(TObject *Sender)<\/p>\n
{if(ComboBox2->Text==Edit2->Text)<\/p>\n
{StringGrid1->RowCount=2;<\/p>\n
FileListBox1->FileName=ComboBox1->Text;<\/p>\n
Edit1->Text=ComboBox1->Text;<\/p>\n
BldTable();<\/p>\n
}<\/p>\n
else<\/p>\n
ClientSocket1->Socket->SendText(«#FileLst «+ComboBox1->Text);<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::StringGrid1DblClick(TObject *Sender)<\/p>\n
{int a,b;<\/p>\n
String TP;<\/p>\n
if(ComboBox2->Text==Edit2->Text)\u00a0\u00a0 \/\/\u0415\u0421\u041b\u0418(\u0432\u044b\u0431\u0440\u0430\u043d \u0441\u0432\u043e\u0439 \u043a\u043e\u043c\u043f)<\/p>\n
{if((StringGrid1->Cells[1][StringGrid1->Row]==»»)&&(strlen(Edit1->Text.c_str())>3))<\/p>\n
{TP=Edit1->Text; Edit1->Text=»»;<\/p>\n
for(a=1;a<=strlen(TP.c_str())-1;a++)<\/p>\n
{if(TP[a]==’\\\\’)<\/p>\n
b=a;<\/p>\n
}<\/p>\n
for(a=1;a<=b;a++)<\/p>\n
Edit1->Text=Edit1->Text+TP[a];<\/p>\n
FileListBox1->FileName=Edit1->Text;<\/p>\n
BldTable();<\/p>\n
}<\/p>\n
if(StringGrid1->Cells[1][StringGrid1->Row]==»\u041f\u0430\u043f\u043a\u0430»)<\/p>\n
{Edit1->Text=Edit1->Text+StringGrid1->Cells[0][StringGrid1->Row]+’\\\\’;<\/p>\n
TP=Edit1->Text; Edit1->Text=»»;<\/p>\n
for(a=1;a<=strlen(TP.c_str());a++)<\/p>\n
if((TP[a]!='[‘)&&(TP[a]!=’]’))<\/p>\n
Edit1->Text=Edit1->Text+TP[a];<\/p>\n
FileListBox1->FileName=Edit1->Text;<\/p>\n
BldTable();<\/p>\n
}<\/p>\n
Label13->Caption=StringGrid1->RowCount-2;<\/p>\n
}<\/p>\n
else\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \/\/\u0415\u0421\u041b\u0418(\u0432\u044b\u0431\u0440\u0430\u043d \u0447\u0443\u0436\u043e\u0439 \u043a\u043e\u043c\u043f)<\/p>\n
{if((StringGrid1->Cells[1][StringGrid1->Row]==»»)&&(strlen(Edit1->Text.c_str())>3))<\/p>\n
{TP=Edit1->Text; Edit1->Text=»»;<\/p>\n
for(a=1;a<=strlen(TP.c_str())-1;a++)<\/p>\n
{if(TP[a]==’\\\\’)<\/p>\n
b=a;<\/p>\n
}<\/p>\n
for(a=1;a<=b;a++)<\/p>\n
Edit1->Text=Edit1->Text+TP[a];<\/p>\n
}<\/p>\n
if(StringGrid1->Cells[1][StringGrid1->Row]==»\u041f\u0430\u043f\u043a\u0430»)<\/p>\n
{Edit1->Text=Edit1->Text+StringGrid1->Cells[0][StringGrid1->Row]+’\\\\’;<\/p>\n
TP=Edit1->Text; Edit1->Text=»»;<\/p>\n
for(a=1;a<=strlen(TP.c_str());a++)<\/p>\n
if((TP[a]!='[‘)&&(TP[a]!=’]’))<\/p>\n
Edit1->Text=Edit1->Text+TP[a];<\/p>\n
}<\/p>\n
ClientSocket1->Socket->SendText(«#FileLst «+Edit1->Text);<\/p>\n
}<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::PostrSpis(AnsiString cmd)<\/p>\n
{int a,b,c,de,tck,skb,ptwo;<\/p>\n
String FN;<\/p>\n
if(strlen(cmd.c_str())>3)<\/p>\n
ptwo=0;<\/p>\n
else<\/p>\n
ptwo=2;<\/p>\n
de=2;<\/p>\n
FileListBox1->FileName=cmd;<\/p>\n
DExplorer.Ko=FileListBox1->Count+ptwo;<\/p>\n
if(Sleg==true)<\/p>\n
Form3->StringGrid1->RowCount=DExplorer.Ko;<\/p>\n
for(a=0;a<=FileListBox1->Count+ptwo;a++)<\/p>\n
{FileListBox1->ItemIndex=a;<\/p>\n
FN=»»;<\/p>\n
b=strlen(FileListBox1->FileName.c_str());<\/p>\n
do<\/p>\n
{b—;<\/p>\n
}<\/p>\n
while(FileListBox1->FileName.c_str()[b]!=’\\\\’);<\/p>\n
tck=0;skb=0;<\/p>\n
for(c=b+2;c<=strlen(FileListBox1->FileName.c_str());c++)<\/p>\n
{FN=FN+FileListBox1->FileName[c];<\/p>\n
if(FileListBox1->FileName[c]==’.’)<\/p>\n
tck=1;<\/p>\n
if(FileListBox1->FileName[1]=='[‘)<\/p>\n
skb=1;<\/p>\n
}<\/p>\n
if((FN!=»[..]»)&&(FN!=»[.]»))<\/p>\n
{DExplorer.TrData[0][a+de]=FN;<\/p>\n
if(Sleg==true)<\/p>\n
Form3->StringGrid1->Cells[0][a+de]=FN;<\/p>\n
}<\/p>\n
else<\/p>\n
de—;<\/p>\n
if((tck==1)&&(skb!=1))<\/p>\n
{DExplorer.TrData[1][a+de]=»\u0424\u0430\u0439\u043b»;<\/p>\n
if(Sleg==true)<\/p>\n
Form3->StringGrid1->Cells[1][a+de]=»\u0424\u0430\u0439\u043b»;<\/p>\n
}<\/p>\n
else<\/p>\n
{DExplorer.TrData[1][a+de]=»\u041f\u0430\u043f\u043a\u0430»;<\/p>\n
if(Sleg==true)<\/p>\n
Form3->StringGrid1->Cells[1][a+de]=»\u041f\u0430\u043f\u043a\u0430»;<\/p>\n
}<\/p>\n
}<\/p>\n
DExplorer.TrData[0][1]=»[..]»;<\/p>\n
DExplorer.TrData[1][1]=»»;<\/p>\n
if(Sleg==true)<\/p>\n
{Form3->StringGrid1->Cells[0][1]=»[..]»;<\/p>\n
Form3->StringGrid1->Cells[1][1]=»»;<\/p>\n
}<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::BldTable()<\/p>\n
{int a,b,c,de,tck,skb,ptwo;<\/p>\n
String FN;<\/p>\n
if(strlen(Edit1->Text.c_str())>3)<\/p>\n
ptwo=0;<\/p>\n
else<\/p>\n
ptwo=2;<\/p>\n
StringGrid1->RowCount=2;<\/p>\n
StringGrid1->RowCount=FileListBox1->Count+ptwo;<\/p>\n
de=2;<\/p>\n
for(a=0;a<=FileListBox1->Count+ptwo;a++)<\/p>\n
{FileListBox1->ItemIndex=a;<\/p>\n
FN=»»;<\/p>\n
b=strlen(FileListBox1->FileName.c_str());<\/p>\n
do<\/p>\n
{b—;<\/p>\n
}<\/p>\n
while(FileListBox1->FileName.c_str()[b]!=’\\\\’);<\/p>\n
tck=0;skb=0;<\/p>\n
for(c=b+2;c<=strlen(FileListBox1->FileName.c_str());c++)<\/p>\n
{FN=FN+FileListBox1->FileName[c];<\/p>\n
if(FileListBox1->FileName[c]==’.’)<\/p>\n
tck=1;<\/p>\n
if(FileListBox1->FileName[1]=='[‘)<\/p>\n
skb=1;<\/p>\n
}<\/p>\n
if((FN!=»[..]»)&&(FN!=»[.]»))<\/p>\n
{StringGrid1->Cells[0][a+de]=FN;<\/p>\n
}<\/p>\n
else<\/p>\n
de—;<\/p>\n
if(StringGrid1->Cells[0][a+de][1]!='[‘)<\/p>\n
StringGrid1->Cells[1][a+de]=»\u0424\u0430\u0439\u043b»;<\/p>\n
else<\/p>\n
StringGrid1->Cells[1][a+de]=»\u041f\u0430\u043f\u043a\u0430»;<\/p>\n
}<\/p>\n
StringGrid1->Cells[0][1]=»[..]»;<\/p>\n
StringGrid1->Cells[1][1]=»»;<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::StringGrid1Click(TObject *Sender)<\/p>\n
{AnsiString S,fname;<\/p>\n
long zsize,psize;<\/p>\n
int a,minus;<\/p>\n
if(ComboBox2->Text==Edit2->Text)<\/p>\n
{minus=-2;<\/p>\n
FileListBox1->ItemIndex=StringGrid1->Row + minus;<\/p>\n
if(StringGrid1->Cells[1][StringGrid1->Row]==»\u0424\u0430\u0439\u043b»)<\/p>\n
{FileListBox1->ItemIndex=StringGrid1->Row + minus;<\/p>\n
\/\/\u00a0\u00a0\u00a0\u00a0 S=FileSizeByName(FileListBox1->FileName);<\/p>\n
\/\/\u00a0\u00a0\u00a0\u00a0 zsize=StrToInt(S)\/1048576;<\/p>\n
\/\/\u00a0\u00a0\u00a0\u00a0 psize=StrToInt(S)\/1024;<\/p>\n
\/\/\u00a0\u00a0\u00a0\u00a0 Label4->Caption=IntToStr(zsize)+».»+IntToStr(psize)[1]+» \u041c\u0431»;<\/p>\n
}<\/p>\n
else<\/p>\n
Label4->Caption=»0.0 \u041c\u0431»;<\/p>\n
}<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::TabControl1Change(TObject *Sender)<\/p>\n
{switch(TabControl1->TabIndex)<\/p>\n
{case 0: {CheckBox1->Visible=true;<\/p>\n
CheckBox2->Visible=true;<\/p>\n
CheckBox3->Visible=true;<\/p>\n
Edit3->Visible=true;<\/p>\n
Button3->Visible=true;<\/p>\n
Edit4->Visible=false;<\/p>\n
Edit2->Visible=false;<\/p>\n
Edit5->Visible=false;<\/p>\n
Label2->Visible=false;<\/p>\n
Label5->Visible=false;<\/p>\n
Label8->Visible=false;<\/p>\n
Button7->Visible=false;<\/p>\n
Label9->Visible=false;<\/p>\n
Panel2->Visible=false;<\/p>\n
Label11->Visible=false;<\/p>\n
} break;<\/p>\n
case 1: {CheckBox1->Visible=false;<\/p>\n
CheckBox2->Visible=false;<\/p>\n
CheckBox3->Visible=false;<\/p>\n
Edit3->Visible=false;<\/p>\n
Button3->Visible=false;<\/p>\n
Edit4->Visible=true;<\/p>\n
Edit2->Visible=true;<\/p>\n
Edit5->Visible=true;<\/p>\n
Label2->Visible=true;<\/p>\n
Label5->Visible=true;<\/p>\n
Label8->Visible=true;<\/p>\n
Button7->Visible=false;<\/p>\n
Label9->Visible=false;<\/p>\n
Panel2->Visible=false;<\/p>\n
Label11->Visible=false;<\/p>\n
} break;<\/p>\n
case 2: {CheckBox1->Visible=false;<\/p>\n
CheckBox2->Visible=false;<\/p>\n
CheckBox3->Visible=false;<\/p>\n
Edit3->Visible=false;<\/p>\n
Button3->Visible=false;<\/p>\n
Edit4->Visible=false;<\/p>\n
Edit2->Visible=false;<\/p>\n
Edit5->Visible=false;<\/p>\n
Label2->Visible=false;<\/p>\n
Label5->Visible=false;<\/p>\n
Label8->Visible=false;<\/p>\n
Button7->Visible=true;<\/p>\n
Label9->Visible=true;<\/p>\n
Panel2->Visible=true;<\/p>\n
Label11->Visible=true;<\/p>\n
}<\/p>\n
}<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::Button8Click(TObject *Sender)<\/p>\n
{GroupBox2->Visible=true;<\/p>\n
TabControl1->Visible=true;<\/p>\n
Memo1->Visible=false;<\/p>\n
Edit7->Visible=false;<\/p>\n
Button9->Visible=false;<\/p>\n
TabControl1->TabIndex=0;<\/p>\n
CheckBox1->Visible=true;<\/p>\n
CheckBox2->Visible=true;<\/p>\n
CheckBox3->Visible=true;<\/p>\n
Edit3->Visible=true;<\/p>\n
Button3->Visible=true;<\/p>\n
Edit4->Visible=false;<\/p>\n
Edit2->Visible=false;<\/p>\n
Edit5->Visible=false;<\/p>\n
Label2->Visible=false;<\/p>\n
Label5->Visible=false;<\/p>\n
Label8->Visible=false;<\/p>\n
Button7->Visible=false;<\/p>\n
Label9->Visible=false;<\/p>\n
Panel2->Visible=false;<\/p>\n
Label11->Visible=false;<\/p>\n
Button8->Enabled=false;<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::Button5Click(TObject *Sender)<\/p>\n
{GroupBox2->Visible=false;<\/p>\n
TabControl1->Visible=false;<\/p>\n
Memo1->Visible=true;<\/p>\n
Edit7->Visible=true;<\/p>\n
Button9->Visible=true;<\/p>\n
Button8->Enabled=true;<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::Button6Click(TObject *Sender)<\/p>\n
{CreateDB();<\/p>\n
if(((Edit3->Text!=»»)||(Edit3->Enabled==false))&&(Label11->Caption!=»»))<\/p>\n
{Table1->Active=true;<\/p>\n
Form1->Table1->Insert();<\/p>\n
if(CheckBox3->Checked==true)<\/p>\n
Form1->Table1->FieldByName(«AcsDat»)->AsString=1;<\/p>\n
else<\/p>\n
Form1->Table1->FieldByName(«AcsDat»)->AsString=0;<\/p>\n
if(CheckBox1->Checked==true)<\/p>\n
Form1->Table1->FieldByName(«DelFil»)->AsString=1;<\/p>\n
else<\/p>\n
Form1->Table1->FieldByName(«DelFil»)->AsString=0;<\/p>\n
if(CheckBox2->Checked==true)<\/p>\n
Form1->Table1->FieldByName(«ImpExp»)->AsString=1;<\/p>\n
else<\/p>\n
Form1->Table1->FieldByName(«ImpExp»)->AsString=0;<\/p>\n
Form1->Table1->FieldByName(«StArch»)->AsString=Edit3->Text;<\/p>\n
Form1->Table1->FieldByName(«IP»)->AsString=Edit4->Text;<\/p>\n
Form1->Table1->FieldByName(«Port»)->AsString=Edit5->Text;<\/p>\n
Form1->Table1->FieldByName(«Name»)->AsString=Edit2->Text;<\/p>\n
Form1->Table1->FieldByName(«LnF»)->AsString=Label11->Caption;<\/p>\n
Form1->Table1->Post();<\/p>\n
Table1->Active=false;<\/p>\n
ClientSocket1->Address=Edit4->Text;<\/p>\n
ClientSocket1->Port=StrToInt(Edit5->Text.c_str());<\/p>\n
ServerSocket1->Port=StrToInt(Edit5->Text.c_str());<\/p>\n
GroupBox2->Visible=false;<\/p>\n
TabControl1->Visible=false;<\/p>\n
Memo1->Visible=true;<\/p>\n
Edit7->Visible=true;<\/p>\n
Button9->Visible=true;<\/p>\n
Button8->Enabled=true;<\/p>\n
}<\/p>\n
else<\/p>\n
Application->MessageBoxA(«\u0412\u0432\u0435\u0434\u0435\u043d\u044b \u043d\u0435 \u0432\u0441\u0435 \u043f\u043e\u043b\u044f»,»\u041e\u0448\u0438\u0431\u043a\u0430»,MB_OK);<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::Button3Click(TObject *Sender)<\/p>\n
{OpenDialog1->InitialDir=»C:\\\\»;<\/p>\n
if(OpenDialog1->Execute())<\/p>\n
{Edit3->Text=OpenDialog1->FileName;<\/p>\n
}<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::Button7Click(TObject *Sender)<\/p>\n
{Form2->Show();<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::Button4Click(TObject *Sender)<\/p>\n
{CheckBox3->Checked=true;<\/p>\n
CheckBox1->Checked=false;<\/p>\n
CheckBox2->Checked=true;<\/p>\n
Edit3->Text=»C:\\\\Program Files\\\\WinRar\\\\Rar.exe»;<\/p>\n
Edit4->Text=»127.0.0.1″;<\/p>\n
Edit5->Text=2000;<\/p>\n
Edit2->Text=»\u0411\u0443\u0433\u0430\u0433\u0430»;<\/p>\n
Label12->Caption=»C:\\\\Downloads\\\\»;<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::CheckBox2Click(TObject *Sender)<\/p>\n
{if(CheckBox2->Checked==true)<\/p>\n
{Edit3->Enabled=true;<\/p>\n
Button3->Enabled=true;<\/p>\n
}<\/p>\n
else<\/p>\n
{Edit3->Enabled=false;<\/p>\n
Edit3->Text=»»;<\/p>\n
Button3->Enabled=false;<\/p>\n
}<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,<\/p>\n
TCustomWinSocket *Socket)<\/p>\n
{Label10->Caption=»\u041a\u043b\u0438\u0435\u043d\u0442 \u043f\u043e\u0434\u043a\u043b\u044e\u0447\u0435\u043d»;<\/p>\n
Image1->Visible=false;<\/p>\n
Image2->Visible=true;<\/p>\n
Image3->Visible=false;<\/p>\n
Button11->Caption=»\u0420\u0430\u0437\u044a\u0435\u0434\u0438\u043d\u0438\u0442\u044c»;<\/p>\n
Button10->Enabled=false;<\/p>\n
ClientSocket1->Active=true;<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::Button11Click(TObject *Sender)<\/p>\n
{int c;<\/p>\n
if(Button11->Caption==»\u041e\u0436\u0438\u0434\u0430\u043d\u0438\u0435 \u0441\u043e\u0435\u0434\u0438\u043d\u0435\u043d\u0438\u044f»)<\/p>\n
c=1;<\/p>\n
if((Button11->Caption==»\u041e\u0442\u043c\u0435\u043d\u0430»)||(Button11->Caption==»\u0420\u0430\u0437\u044a\u0435\u0434\u0438\u043d\u0438\u0442\u044c»))<\/p>\n
c=2;<\/p>\n
switch(c)<\/p>\n
{case 1: {ServerSocket1->Port=StrToInt(Edit5->Text.c_str());<\/p>\n
ClientSocket1->Address=Edit4->Text;<\/p>\n
ClientSocket1->Port=StrToInt(Edit5->Text.c_str())+500;<\/p>\n
Label10->Caption=»\u041e\u0436\u0438\u0434\u0430\u043d\u0438\u0435 \u043f\u043e\u0434\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u044f»;<\/p>\n
Image1->Visible=false;<\/p>\n
Image2->Visible=false;<\/p>\n
Image3->Visible=true;\u00a0\u00a0 \/\/Yellow<\/p>\n
ServerSocket1->Active=true;<\/p>\n
Button11->Caption=»\u041e\u0442\u043c\u0435\u043d\u0430»;<\/p>\n
Button10->Enabled=false;<\/p>\n
} break;<\/p>\n
case 2: {Label10->Caption=»\u041a\u043b\u0438\u0435\u043d\u0442 \u043d\u0435 \u043f\u043e\u0434\u043a\u043b\u044e\u0447\u0435\u043d»;<\/p>\n
Image1->Visible=true;\u00a0\u00a0 \/\/Red<\/p>\n
Image2->Visible=false;<\/p>\n
Image3->Visible=false;<\/p>\n
ClientSocket1->Active=false;<\/p>\n
ServerSocket1->Active=false;<\/p>\n
Button11->Caption=»\u041e\u0436\u0438\u0434\u0430\u043d\u0438\u0435 \u0441\u043e\u0435\u0434\u0438\u043d\u0435\u043d\u0438\u044f»;<\/p>\n
Button10->Enabled=true;<\/p>\n
ComboBox2->Clear();<\/p>\n
ComboBox2->Items->Add(Edit2->Text);<\/p>\n
ComboBox2->ItemIndex=0;<\/p>\n
} break;<\/p>\n
}<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::Button10Click(TObject *Sender)<\/p>\n
{ClientSocket1->Address=Edit4->Text;<\/p>\n
ClientSocket1->Port=StrToInt(Edit5->Text.c_str());<\/p>\n
ServerSocket1->Port=StrToInt(Edit5->Text.c_str())+500;<\/p>\n
ClientSocket1->Active=true;<\/p>\n
ServerSocket1->Active=true;<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,<\/p>\n
TCustomWinSocket *Socket)<\/p>\n
{String str,nnm,comand,param,CD,D,SF,of;<\/p>\n
int a,b,tck,skb;<\/p>\n
str=Socket->ReceiveText();<\/p>\n
if(str[1]=='<‘)<\/p>\n
Memo1->Lines->Add(str);<\/p>\n
if(str[1]==’~’)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \/\/\u043e\u0431\u043c\u0435\u043d \u0438\u043c\u0435\u043d\u0430\u043c\u0438<\/p>\n
{for(a=2;a<=strlen(str.c_str());a++)<\/p>\n
nnm=nnm+str[a];<\/p>\n
ComboBox2->Items->Add(nnm);<\/p>\n
}<\/p>\n
if((str[1]==’#’)&&(CheckBox3->Checked==true))\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \/\/\u043a\u043e\u043c\u0430\u043d\u0434\u044b<\/p>\n
{for(a=2;a<=8;a++)<\/p>\n
comand=comand+str[a];<\/p>\n
if(comand==»ImportFile»)<\/p>\n
{<\/p>\n
}<\/p>\n
if(comand==»CmdConn»)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \/\/\u0437\u0430\u043f\u0440\u043e\u0441 \u0438\u043c\u0451\u043d \u0434\u0438\u0441\u043a\u043e\u0432 \u0438 \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u043d\u0438\u044f \u043f\u0435\u0440\u0432\u043e\u0433\u043e<\/p>\n
{for(b=0;b<DExplorer.Kd;b++)<\/p>\n
CD=CD+DExplorer.Disk[b];<\/p>\n
ClientSocket1->Socket->SendText(«\/D «+CD); \/\/\u043f\u0435\u0440\u0435\u0434\u0430\u0447\u0430 \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u0439 \u0434\u0438\u0441\u043a\u043e\u0432<\/p>\n
FileListBox1->FileName=DExplorer.Disk[0];<\/p>\n
SF=»»;PostrSpis(DExplorer.Disk[0]);<\/p>\n
for(a=1;a<=FileListBox1->Count;a++)<\/p>\n
SF=SF+DExplorer.TrData[0][a]+»\/»;<\/p>\n
ClientSocket1->Socket->SendText(«\/F «+SF); \/\/\u043f\u0435\u0440\u0435\u0434\u0430\u0447\u0430 \u0441\u043f\u0438\u0441\u043a\u0430 \u0444\u0430\u0439\u043b\u043e\u0432<\/p>\n
}<\/p>\n
if(comand==»FileLst»)\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0\u00a0\/\/\u0437\u0430\u043f\u0440\u043e\u0441 \u0441\u043f\u0438\u0441\u043a\u0430 \u0444\u0430\u0439\u043b\u043e\u0432 \u043f\u043e \u0437\u0430\u0434\u0430\u043d\u043d\u043e\u043c\u0443 \u043f\u0443\u0442\u0438<\/p>\n
{param=»»;<\/p>\n
for(a=10;a<=strlen(str.c_str());a++)<\/p>\n
param=param+str[a];<\/p>\n
FileListBox1->FileName=param;<\/p>\n
SF=»»;PostrSpis(param);<\/p>\n
Form3->Edit1->Text=param;<\/p>\n
Form3->StringGrid1->RowCount=FileListBox1->Count;<\/p>\n
for(a=1;a<=FileListBox1->Count;a++)<\/p>\n
{SF=SF+DExplorer.TrData[0][a]+»\/»;<\/p>\n
Form3->StringGrid1->Cells[0][a]=DExplorer.TrData[0][a];<\/p>\n
}<\/p>\n
ClientSocket1->Socket->SendText(«\/F «+SF); \/\/\u043f\u0435\u0440\u0435\u0434\u0430\u0447\u0430 \u0441\u043f\u0438\u0441\u043a\u0430 \u0444\u0430\u0439\u043b\u043e\u0432<\/p>\n
}<\/p>\n
}<\/p>\n
if(str[1]==’\/’)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \/\/\u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b<\/p>\n
{if(str[2]==’D’)\u00a0 \/\/\u043f\u043e\u043b\u0443\u0447\u0435\u043d\u0438\u0435 \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u0439 \u0434\u0438\u0441\u043a\u043e\u0432<\/p>\n
{ComboBox1->Clear();<\/p>\n
param=»»;<\/p>\n
for(a=4;a<=strlen(str.c_str());a++)<\/p>\n
param=param+str[a];<\/p>\n
for(a=1;a<=strlen(param.c_str());a=a+3)<\/p>\n
{D=»»;<\/p>\n
D=D+param[a];<\/p>\n
D=D+param[a+1];<\/p>\n
D=D+param[a+2];<\/p>\n
ComboBox1->Items->Add(D);<\/p>\n
}<\/p>\n
ComboBox1->ItemIndex=0;<\/p>\n
Edit1->Text=ComboBox1->Text;<\/p>\n
}\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \/\/<==<\/p>\n
if(str[2]==’F’)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \/\/\u043f\u043e\u043b\u0443\u0447\u0435\u043d\u0438\u0435 \u0441\u043f\u0438\u0441\u043a\u0430 \u0444\u0430\u0439\u043b\u043e\u0432<\/p>\n
{param=»»;<\/p>\n
for(a=4;a<=strlen(str.c_str());a++)<\/p>\n
param=param+str[a];<\/p>\n
a=0; of=»»; b=0;<\/p>\n
do<\/p>\n
{a++;<\/p>\n
if(param[a]==’\/’)<\/p>\n
{b++;<\/p>\n
DExplorer.DataImport[0][b]=of;<\/p>\n
of=»»;<\/p>\n
}<\/p>\n
else<\/p>\n
of=of+param[a];<\/p>\n
}<\/p>\n
while(a!=strlen(param.c_str()));<\/p>\n
StringGrid1->RowCount=2;<\/p>\n
if(strlen(Edit1->Text.c_str())==3)<\/p>\n
StringGrid1->RowCount=b+2;<\/p>\n
else<\/p>\n
StringGrid1->RowCount=b;<\/p>\n
for(a=1;a<=b;a++)\u00a0\u00a0\u00a0\u00a0 \/\/\u0437\u0430\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u0435 \u0442\u0430\u0431\u043b\u0438\u0446\u044b \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u044b\u043c\u0438 \u0434\u0430\u043d\u043d\u044b\u043c\u0438<\/p>\n
StringGrid1->Cells[0][a]=DExplorer.DataImport[0][a];<\/p>\n
for(a=1;a<=StringGrid1->RowCount;a++)<\/p>\n
{tck=0;skb=0;<\/p>\n
for(b=1;b<=strlen(StringGrid1->Cells[0][a].c_str());b++)<\/p>\n
{if(StringGrid1->Cells[0][a][b]==’.’)<\/p>\n
tck=1;<\/p>\n
if(StringGrid1->Cells[0][a][b]=='[‘)<\/p>\n
skb=1;<\/p>\n
}<\/p>\n
if(skb!=1)<\/p>\n
StringGrid1->Cells[1][a]=»\u0424\u0430\u0439\u043b»;<\/p>\n
else<\/p>\n
StringGrid1->Cells[1][a]=»\u041f\u0430\u043f\u043a\u0430»;<\/p>\n
}<\/p>\n
StringGrid1->Cells[0][1]=»[..]»;<\/p>\n
StringGrid1->Cells[1][1]=»»;<\/p>\n
}<\/p>\n
}<\/p>\n
if((str[1]==’#’)&&(CheckBox3->Checked==false))<\/p>\n
ClientSocket1->Socket->SendText(«NoAccess»);<\/p>\n
if(str==»NoAccess»)<\/p>\n
{Application->MessageBoxA(«\u0414\u043e\u0441\u0442\u0443\u043f \u043a \u0434\u0430\u043d\u043d\u044b\u043c \u0443\u0434\u0430\u043b\u0435\u043d\u043d\u043e\u0433\u043e \u0442\u0435\u0440\u043c\u0438\u043d\u0430\u043b\u0430 \u0437\u0430\u043f\u0440\u0435\u0449\u0435\u043d»,»\u0414\u043e\u0441\u0442\u0443\u043f»,MB_ICONERROR);<\/p>\n
ComboBox1->ItemIndex=0;<\/p>\n
ComboBox2->ItemIndex=0;<\/p>\n
Edit1->Text=ComboBox1->Text;<\/p>\n
FileListBox1->FileName=Edit1->Text;<\/p>\n
BldTable();<\/p>\n
}<\/p>\n
if(str==»Access»)<\/p>\n
{Application->MessageBoxA(«\u0414\u043e\u0441\u0442\u0443\u043f \u043a \u0434\u0430\u043d\u043d\u044b\u043c \u0443\u0434\u0430\u043b\u0435\u043d\u043d\u043e\u0433\u043e \u0442\u0435\u0440\u043c\u0438\u043d\u0430\u043b\u0430 \u0440\u0430\u0437\u0440\u0435\u0448\u0435\u043d»,»\u0414\u043e\u0441\u0442\u0443\u043f»,MB_ICONINFORMATION);<\/p>\n
}<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::SndMsg()<\/p>\n
{AnsiString msg;<\/p>\n
if(Label10->Caption==»\u041a\u043b\u0438\u0435\u043d\u0442 \u043f\u043e\u0434\u043a\u043b\u044e\u0447\u0435\u043d»)<\/p>\n
{msg=»<«+Edit2->Text+»>: «+Edit7->Text;<\/p>\n
Edit7->Text=»»;<\/p>\n
ClientSocket1->Socket->SendText(msg);<\/p>\n
Memo1->Lines->Add(msg);<\/p>\n
}<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::Button9Click(TObject *Sender)<\/p>\n
{SndMsg();<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::Edit7KeyDown(TObject *Sender, WORD &Key,<\/p>\n
TShiftState Shift)<\/p>\n
{if(Key==13)<\/p>\n
SndMsg();<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::ClientSocket1Error(TObject *Sender,<\/p>\n
TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)<\/p>\n
{Application->MessageBoxA(«\u0421\u0435\u0440\u0432\u0435\u0440 \u043d\u0435 \u043e\u0442\u0432\u0435\u0447\u0430\u0435\u0442»,»\u041e\u0448\u0438\u0431\u043a\u0430»,MB_ICONERROR);<\/p>\n
ErrorCode = 0;<\/p>\n
ClientSocket1->Active=false;<\/p>\n
ServerSocket1->Active=false;<\/p>\n
Label10->Caption=»\u041a\u043b\u0438\u0435\u043d\u0442 \u043d\u0435 \u043f\u043e\u0434\u043a\u043b\u044e\u0447\u0435\u043d»;<\/p>\n
Image1->Visible=true;\u00a0\u00a0\u00a0\u00a0\u00a0 \/\/Red<\/p>\n
Image2->Visible=false;<\/p>\n
Image3->Visible=false;<\/p>\n
Button11->Caption=»\u041e\u0436\u0438\u0434\u0430\u043d\u0438\u0435 \u0441\u043e\u0435\u0434\u0438\u043d\u0435\u043d\u0438\u044f»;<\/p>\n
Button10->Enabled=true;<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,<\/p>\n
TCustomWinSocket *Socket)<\/p>\n
{Label10->Caption=»\u041a\u043b\u0438\u0435\u043d\u0442 \u043f\u043e\u0434\u043a\u043b\u044e\u0447\u0435\u043d»;<\/p>\n
Image1->Visible=false;<\/p>\n
Image2->Visible=true;\u00a0\u00a0 \/\/Green<\/p>\n
Image3->Visible=false;<\/p>\n
Button11->Caption=»\u0420\u0430\u0437\u044a\u0435\u0434\u0438\u043d\u0438\u0442\u044c»;<\/p>\n
Button10->Enabled=false;<\/p>\n
if(SendName==false)<\/p>\n
{ClientSocket1->Socket->SendText(«~»+Edit2->Text);<\/p>\n
SendName=true;<\/p>\n
}<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::CreateDB()<\/p>\n
{Form1->Table1->TableName=»D:\\\\Options.db»;<\/p>\n
Form1->Table1->TableType=ttParadox;<\/p>\n
Form1->Table1->FieldDefs->Clear();<\/p>\n
TFieldDef *pNewDef = Form1->Table1->FieldDefs->AddFieldDef();<\/p>\n
pNewDef->Name=»AcsDat»;<\/p>\n
pNewDef->DataType=ftInteger;<\/p>\n
pNewDef=Form1->Table1->FieldDefs->AddFieldDef();<\/p>\n
pNewDef->Name=»DelFil»;<\/p>\n
pNewDef->DataType=ftInteger;<\/p>\n
pNewDef=Form1->Table1->FieldDefs->AddFieldDef();<\/p>\n
pNewDef->Name=»ImpExp»;<\/p>\n
pNewDef->DataType=ftInteger;<\/p>\n
pNewDef=Form1->Table1->FieldDefs->AddFieldDef();<\/p>\n
pNewDef->Name=»StArch»;<\/p>\n
pNewDef->DataType=ftString;<\/p>\n
pNewDef->Size=255;<\/p>\n
pNewDef=Form1->Table1->FieldDefs->AddFieldDef();<\/p>\n
pNewDef->Name=»IP»;<\/p>\n
pNewDef->DataType=ftString;<\/p>\n
pNewDef->Size=128;<\/p>\n
pNewDef=Form1->Table1->FieldDefs->AddFieldDef();<\/p>\n
pNewDef->Name=»Port»;<\/p>\n
pNewDef->DataType=ftInteger;<\/p>\n
pNewDef=Form1->Table1->FieldDefs->AddFieldDef();<\/p>\n
pNewDef->Name=»Name»;<\/p>\n
pNewDef->DataType=ftString;<\/p>\n
pNewDef->Size=20;<\/p>\n
pNewDef=Form1->Table1->FieldDefs->AddFieldDef();<\/p>\n
pNewDef->Name=»LnF»;<\/p>\n
pNewDef->DataType=ftString;<\/p>\n
pNewDef->Size=255;<\/p>\n
Form1->Table1->CreateTable();<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::Button12Click(TObject *Sender)<\/p>\n
{if(Sleg==false)<\/p>\n
{Sleg=true;<\/p>\n
Form1->Enabled=false;<\/p>\n
Form3->Show();<\/p>\n
}<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::ComboBox2Change(TObject *Sender)<\/p>\n
{int a;<\/p>\n
if((ComboBox2->Text!=Edit2->Text)&&(ClientSocket1->Active==true))<\/p>\n
ClientSocket1->Socket->SendText(«#CmdConn»);<\/p>\n
else<\/p>\n
{ComboBox1->Clear();<\/p>\n
for(a=0;a<DExplorer.Kd;a++)<\/p>\n
ComboBox1->Items->Add(DExplorer.Disk[a]);<\/p>\n
ComboBox1->ItemIndex=0;<\/p>\n
FileListBox1->FileName=ComboBox1->Text;<\/p>\n
BldTable();<\/p>\n
}<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::ServerSocket1ClientDisconnect(TObject *Sender,<\/p>\n
TCustomWinSocket *Socket)<\/p>\n
{int a;<\/p>\n
Label10->Caption=»\u041a\u043b\u0438\u0435\u043d\u0442 \u043d\u0435 \u043f\u043e\u0434\u043a\u043b\u044e\u0447\u0435\u043d»;<\/p>\n
Image1->Visible=true;\u00a0\u00a0\u00a0\u00a0\u00a0 \/\/Red<\/p>\n
Image2->Visible=false;<\/p>\n
Image3->Visible=false;<\/p>\n
ClientSocket1->Active=false;<\/p>\n
ServerSocket1->Active=false;<\/p>\n
Button11->Caption=»\u041e\u0436\u0438\u0434\u0430\u043d\u0438\u0435 \u0441\u043e\u0435\u0434\u0438\u043d\u0435\u043d\u0438\u044f»;<\/p>\n
Button10->Enabled=true;<\/p>\n
ComboBox2->Clear();<\/p>\n
ComboBox2->Items->Add(Edit2->Text);<\/p>\n
ComboBox2->ItemIndex=0;<\/p>\n
ComboBox1->Clear();<\/p>\n
for(a=1;a<=DExplorer.Kd;a++)<\/p>\n
ComboBox1->Items->Add(DExplorer.Disk[a]);<\/p>\n
Application->MessageBoxA(«\u041a\u043b\u0438\u0435\u043d\u0442 \u043e\u0442\u0441\u043e\u0435\u0434\u0438\u043d\u0438\u043b\u0441\u044f»,»\u0421\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435»,MB_ICONINFORMATION);<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n
void __fastcall TForm1::Button1Click(TObject *Sender)<\/p>\n
{ClientSocket1->Socket->SendText(«#ImportFile»);<\/p>\n
}<\/p>\n
\/\/—————————————————————————<\/p>\n","protected":false},"excerpt":{"rendered":"
\u041f\u0440\u0438\u0434\u043d\u0435\u0441\u0442\u0440\u043e\u0432\u0441\u043a\u0438\u0439 \u0433\u043e\u0441\u0443\u0434\u0430\u0440\u0441\u0442\u0432\u0435\u043d\u043d\u044b\u0439 \u0443\u043d\u0438\u0432\u0435\u0440\u0441\u0438\u0442\u0435\u0442\u00a0\u0438\u043c. \u0422.\u0413. \u0428\u0435\u0432\u0447\u0435\u043d\u043a\u043e \u0418\u043d\u0436\u0435\u043d\u0435\u0440\u043d\u043e \u0442\u0435\u0445\u043d\u0438\u0447\u0435\u0441\u043a\u0438\u0439 \u0438\u043d\u0441\u0442\u0438\u0442\u0443\u0442\u00a0\u041a\u0430\u0444\u0435\u0434\u0440\u0430 \u0412\u041a\u0421\u0421 \u0412\u044b\u043f\u043e\u043b\u043d\u0438\u043b:\u0421\u0442\u0443\u0434\u0435\u043d\u0442 \u0433\u0440.05\u0412(\u0441\u043e\u043a\u0440.)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u0414.\u0418.\u0418\u0432\u0447\u0435\u043d\u043a\u043e \u041f\u0440\u043e\u0432\u0435\u0440\u0438\u043b:\u041f\u0440\u0435\u043f\u043e\u0434\u0430\u0432\u0430\u0442\u0435\u043b\u044c \u043a\u0430\u0444\u0435\u0434\u0440\u044b \u0412\u041a\u0421\u0421\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u041e.\u0418.\u0412\u0430\u043a\u0430\u0440\u044c \u0422\u0438\u0440\u0430\u0441\u043f\u043e\u043b\u044c 2007 \u0421\u041e\u0414\u0415\u0420\u0416\u0410\u041d\u0418\u0415<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[37],"tags":[],"_links":{"self":[{"href":"https:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/posts\/26080"}],"collection":[{"href":"https:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/studentpmr.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=26080"}],"version-history":[{"count":1,"href":"https:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/posts\/26080\/revisions"}],"predecessor-version":[{"id":26083,"href":"https:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/posts\/26080\/revisions\/26083"}],"wp:attachment":[{"href":"https:\/\/studentpmr.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=26080"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/studentpmr.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=26080"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/studentpmr.ru\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=26080"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
![\"\u0424\u0443\u043d\u043a\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u0430\u044f](\"http:\/\/studentpmr.ru\/foto\/2016\/04\/Shema_PO.jpg\")
<\/a><\/p>\n