D3V3L0p3R

Да правильно сделали. Народ до того привык к халяве, а прогеры пишут и пишут эти проги.

Блин наконец скорость во внутр не режут.

Блин, тут касяГ с потоками. я хз как их юзать. кто нибудь растолкуйте

да че то много ошибок я допустил. Переделаю. А если кто то увидел ошибки сообщите пож-та

Беда текст не перегоняется, помогите плиз. код первый это сервер. второй код это клиент. Между ними отправка сообщений через send и recv. не доходят собака. #include #pragma hdrstop #include "Unit1.h" #include #include //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; int s1,n; AnsiString s; WSADATA WsaData; SOCKET socket1,socket2; SOCKADDR_IN sin; SOCKADDR_IN from; TMyThread *Thr=new TMyThread(true); char *buff; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { WSAStartup(MAKEWORD(2,0),&WsaData); if(WSAStartup(MAKEWORD(2,0),&WsaData) !=0) { ShowMessage("ERROR"); } socket1=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP); if (socket1 ==INVALID_SOCKET) { ShowMessage("Сокет не создан");} sin.sin_family = AF_INET; sin.sin_port = htons(8080); sin.sin_addr.s_addr = INADDR_ANY; bind( socket1, (LPSOCKADDR)&sin, sizeof(sin) ); listen( socket1, SOMAXCONN); } //--------------------------------------------------------------------------- __fastcall TMyThread::TMyThread(bool CreateSuspended) : TThread(CreateSuspended) { } void __fastcall TMyThread::Execute() { socket2=accept(socket1,0,0); if (socket2==INVALID_SOCKET) {ShowMessage("clien dont connected");} else {ShowMessage ("Client Connected"); recv(socket1,buff,sizeof(buff),0) ;} Synchronize(pb); } void __fastcall TForm1::Button3Click(TObject *Sender) { Thr->Priority = tpLower; // установить приоритет ниже нормального Thr->Resume(); // запустить поток выполняться } //--------------------------------------------------------------------------- void __fastcall TMyThread::pb() { Form1->Memo1->Lines->Add(buff); } void __fastcall TForm1::Button2Click(TObject *Sender) { s=Form1->Edit1->Text; buff=s.c_str(); send(socket2,buff,sizeof(buff),0); Memo1->Lines->Add(s); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button4Click(TObject *Sender) { Thr->Suspend() ;} //--------------------------------------------------------------------------- //--------------------------------------------------------------------------- а вот клиент #include #pragma hdrstop #include "Unit1.h" #include "Winsock2.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; WSADATA WsaData; SOCKADDR_IN anAddr; SOCKET socket1,socket2; TMyThread *Thr=new TMyThread(true); char *buff; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { WSAStartup(MAKEWORD(2,0),&WsaData); if(WSAStartup(MAKEWORD(2,0),&WsaData) !=0) { ShowMessage("ERROR"); } socket1=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP); if (socket1 ==INVALID_SOCKET) { ShowMessage("Сокет не создан");} anAddr.sin_family = AF_INET; anAddr.sin_port = htons(8080); anAddr.sin_addr.S_un.S_addr = inet_addr("127.0.0.1"); socket1=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP); connect(socket1, (struct sockaddr *)&anAddr, sizeof(struct sockaddr)); } //--------------------------------------------------------------------------- __fastcall TMyThread::TMyThread(bool CreateSuspended) : TThread(CreateSuspended) { } //--------------------------------------------------------------------------- void __fastcall TMyThread::Execute() { connect(socket1, (struct sockaddr *)&anAddr, sizeof(struct sockaddr)); if (socket1==INVALID_SOCKET) {ShowMessage("dont connect to server");} else {ShowMessage ("Connected to Server"); recv(socket1,buff,sizeof(buff),0);} Synchronize(pb); } void __fastcall TMyThread::pb() { Form1->Memo1->Lines->Add(buff); } void __fastcall TForm1::Button3Click(TObject *Sender) { Thr->Priority = tpNormal; Thr->Resume(); Thr->FreeOnTerminate = true; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) {AnsiString s; s=Form1->Edit1->Text; buff=s.c_str(); send(socket2,(buff),sizeof(buff),0); Memo1->Lines->Add(s); } //--------------------------------------------------------------------------- //---------------------------------------------------------------------------

пля когда 20а подрубят нах??? Заепся с мегабитом О_о

так пробовал все элементы, 0 ,1 и даже -1, всё равно эрорр был. Вот щас робит норм

Да тут и не ноль. Сделал карочь по человечески,т.е. заново. #include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { if (Edit1->Text==""){ShowMessage("Enter your nickname"); return;} ServerSocket1->Active = true ; Button3->Enabled = true; Button4->Enabled = true ; Button1->Enabled = false ; Memo1->Lines->Add("Server Created") ; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Edit2->Text=ClientSocket1->Address; ClientSocket1->Active = true ; Button2->Enabled = false ; Button4->Enabled = true ; } //--------------------------------------------------------------------------- void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender, TCustomWinSocket *Socket) { Memo1->Lines->Add("Client connected"); } //--------------------------------------------------------------------------- void __fastcall TForm1::ClientSocket1Connect(TObject *Sender, TCustomWinSocket *Socket) { Memo1->Lines->Add("Connected"); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button3Click(TObject *Sender) { int i; if (ServerSocket1->Active==true) { for (i=0;i<(ServerSocket1->Socket->ActiveConnections-1);i++) {ServerSocket1->Socket->Connections[i]->SendText(Edit1->Text+"::"+Edit3->Text); } } else { ClientSocket1->Socket->SendText(Edit1->Text+"::"+Edit3->Text);} Memo1->Lines->Add(Edit1->Text+"::"+ Edit3->Text) ; Edit3->Text=""; } //--------------------------------------------------------------------------- void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender, TCustomWinSocket *Socket) { Memo1->Lines->Add(Socket->ReceiveText()) ; } //--------------------------------------------------------------------------- void __fastcall TForm1::ClientSocket1Read(TObject *Sender, TCustomWinSocket *Socket) { Memo1->Lines->Add(Socket->ReceiveText()) ; } //--------------------------------------------------------------------------- //---------------------------------------------------------------------------

народ нид Бэкап! #include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { if (Edit1->Text==""){ShowMessage("Enter your nickname"); return;} ServerSocket1->Active = true ; Button3->Enabled = true; Button4->Enabled = true ; Button1->Enabled = false ; Memo1->Lines->Add("Server Created") ; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Edit2->Text=ClientSocket1->Address; ClientSocket1->Active = true ; Button2->Enabled = false ; Button4->Enabled = true ; } //--------------------------------------------------------------------------- void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender, TCustomWinSocket *Socket) { Memo1->Lines->Add("Client connected"); } //--------------------------------------------------------------------------- void __fastcall TForm1::ClientSocket1Connect(TObject *Sender, TCustomWinSocket *Socket) { Memo1->Lines->Add("Connected"); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button3Click(TObject *Sender) { if (ServerSocket1->Active==true) {ServerSocket1->Socket->Connections[1]->SendText(Edit1->Text+"::"+Edit3->Text); } else { ClientSocket1->Socket->SendText(Edit1->Text+"::"+Edit3->Text);} Memo1->Lines->Add(Edit1->Text+"::"+ Edit3->Text) ; Edit3->Text=""; } //--------------------------------------------------------------------------- void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender, TCustomWinSocket *Socket) { Memo1->Lines->Add(Socket->ReceiveText()) ; } //--------------------------------------------------------------------------- void __fastcall TForm1::ClientSocket1Read(TObject *Sender, TCustomWinSocket *Socket) { Memo1->Lines->Add(Socket->ReceiveText()) ; } //--------------------------------------------------------------------------- //--------------------------------------------------------------------------- Блин выдает error: list index out of bounds Где именно я накосячил?

BCC Company подготовила "Сибирьтелеком" к запуску IPTV ТАТЬЯНА ЗОЛОТОВА © ComNews 10.04.2009 Российский системный интегратор BCC Company завершил внедрение аппаратно-программного комплекса IPTV для межрегиональной компании (МРК) "Сибирьтелеком" в Новосибирской области. Сейчас оператор готовит комплекс к запуску в коммерческую эксплуатацию и занимается получением разрешения в регулирующих органах. Более двух тыс. абонентов существующей IPTV-платформы оператора будут переключены на комплекс компании ВСС. "Сибирьтелеком" запустил пакет услуг, в который входят широкополосный доступ в Интернет по технологии xDSL/ETTH и интерактивное цифровое телевидение на базе технологии IP TV, в Новосибирске в октябре 2008 г. под брендом "Твист". Услуга ориентирована на массовых рынок. От абонента требуется приобрести или взять в аренду приставку к телевизору (Set-Top-Box). Как сообщает пресс-служба "Сибирьтелекома", в рамках реализованной единой системы дистрибуции контента МРК может централизованно получать защищенный контент цифрового IP-телевидения, а также добавлять и обмениваться региональным контентом, адаптированным под индивидуальные потребности локальных пользователей. Внедрение централизованной системы авторизации и управления доступом к контенту обеспечивает защиту видеофайлов от просмотра со стороны незарегистрированных абонентов, а также исключает его цифровое копирование и распространение. Платформа также оборудована приложением "репорт-сервер", которое позволяет получать информацию о потребляемых абонентами услугах. "Новое развитие получат такие сервисы, как "видео по запросу", "персональный магнитофон", "ТВ-мейл" и другие", - сообщает пресс-служба "Сибирьтелекома". Также оператор намерен увеличить фильмотеку "Твист" в более чем в два раза. "Интенсивный путь развития оператора связи диктует необходимость предоставления современных востребованных сервисов и разнообразного контента на базе открытой, гибкой и масштабируемой платформы", - говорит вице-президент компании ВСС Сергей Канев. "Одно из стратегических направлений развития бизнеса нашей компании - это предоставление широкого выбора качественно новых сервисов на всей территории Сибири", - комментирует событие первый заместитель генерального директора "Сибирьтелекома" Иван Дадыкин. "Развитие услуг интерактивного телевидения мы видим в первую очередь за счет увеличения количества каналов и расширения набора дополнительных сервисов. Для этого мы внедрили новую масштабируемую платформу IPTV компании BCC", - дополняет его коллега - и.о. директора новосибирского филиала "Сибирьтелекома" Алексей Махорин. В августе 2008 г. ВСС Company совместно с "Сибирьтелеком" уже ввели в коммерческую эксплуатацию аппаратно-программный комплекс для предоставления мультимедийных услуг IPTV в Томской области и Красноярском крае, где в тот же месяц МРК запустил IP TV под брендом "Твист" (см. новость ComNews от 6 августа 2008 г.). По информации "Сибирьтелекома", 10 тыс. абонентов оператора в восьми регионах Сибири уже получили доступ к высококачественному интерактивному IP-телевидению и мультимедийному контенту. В 2009 г. оператор намерен расширить географию предоставления сервиса на всю Сибирь. взято http://www.comnews.ru/index.cfm?id=43861&tempo=135

Да, нужно 84% [ 27 ] Нет, не нужно 15% [ 5 ] Ух жутко машина округляет, целый процент потеряла

Ваще рульный тариф, сегодня на него прыгнул. Особенно радует что на домашний 1 рубль

да нормальная у тебя диния пр максимум 25000 kbps. Достаточно походу 6000 kbps

ошибаешься

а правительству РБ это нада?? Там наверн каждый второй сидит купленный

и как его приделать?

Ну че то меня игнорят =(

Ты наверн про читаТехЭнэрго. WiMax "Байкал-Терра" 465-655 Звоните интересуйтесь. Особенно кто в центре города живет

ну че то пообщался в аське грит одно а кидает ссылки там тарифы дроже гораздо (правда не свои тарифы давала, типа их сайт на обработке) Добавлено спустя 7 минут 2 секунды: Да и вообще этот ски-фи спутниковый =( Я то думал ваймакс

Позвонил я туда (Читатехэнерго), тянут волокно между домами карочь норм. А вот с ценами беда, дороже чем у ст (на анлим) И сегодня нашел ски фи какой-то позвонил сегодня по 465-655 512кб -- 990руб 1024кб -- 2000руб

а здесь че нада опред кол-во голосов набрать???

На сервере устанвлен античит MyAc http://forum.stbur.ru/index.php?showtopic=29440

Ну незнаю. Ему то че, кажется наоборот будет легче =)

Захожу как обычно в ветку рэп хип-хоп РНБ и хотелось бы увидеть что бы русс рэп был отдельно. Добавил опрос * bonfunk

да я паскаль первый раз в жизни в универе открыл =)