probka, ей, слющий, ти скинхенд щтоли? ¦)) // настоящий скинхед не пьёт и даже не курит я вобще к тому, что "Дивлюся я, о ... , вы не знаете этого ... !" это бред, ибо ООП для неудачников, грубо говоря.(кроме кеза, конечно .D) ну никто не станет писать Vx на bcb; вспоминается детство, когда вирусом была прога на делфи, у которой "Form1.Hide;" на старте было прописано. да и психонавтику с виски я очень редко(хоть и стабильно) себе позволяю так что не надо "ля ля" )
Да ты что ... вот новость! ... ООП позволяет совершать операции с огромными полями данных и методов. Через объект. Вот так. Этож какое нам поможение! (с)
это тебе кодить их помогает -)) в итоге всё равно тот же асм с процедурами получишь, или ты не знал?)) типо "ооп нам дан свыше!!<тут повествующий бъётся челом о пол>" да уйс! дохрена кода, в некоторых случаях(как с твоим VCL) к этому плюсуется производитеьлность бесконечно стремящаяся к нулю.. в общем ооп вставки в принципе местами удобны, но имхо для ясности процесса и в этих случаях юзать классичискую комбинацию структур с процедурами. да и не забывай: тут о низкоуровневом программировании в большинстве говорят. а тут - vcl.. я фшоки. (извини, цитат и попирайтов с моей стороны не будет)
Comer_, форум не только для тех кто кодит на Асме. Ветка называется - WASM.LANG.C С этим согласен, если про консоль. А если тебе надо быренько состряпать что-то, с графическим интерфейсом? Что на Асме займет дофига времени? А? Думай сначала, да, потом гавари, да ..?
ну да, а без объекта никак нельзя совершать "операции с огромными полями данных и методов". суть ооп далеко не в этом. c != cpp пример в студию. состряпать диалог ненамного дольше чем сделать то же самое с помощью vcl/mfc. В общем - "Думай сначала, да, потом гавари, да ..".
ёпт, чел ты бредишь =\\ "быстренько" можно консоль настряпать или reshack'oм форму нашлёпал, DialogBoxParam'ом и радуйся. вобще, бывает ли так, что бы что то надо было быстро? если это прога которую для себя пишешь - так та должна быть ещо продуманней и стабильнее. если это чисто прога - задачку решить по физике на формулах, так нахрена вобще форма нужна? если это серъёзный заказ с не менее серъёзным клиентом, то тут и говорить не о чём. приведи пример? уверен, что речь идёт о проделках нуба Пети. жаль что этот форум не приемлет агрессии. я бы тебе выразил.
Comer_, быренько - это когда хочется поскорее результат увидать :Е , а потом наворитить прибамбасов. ёпт, Петя отдыхает. Тут покруче замес )) Вырожай, вырожай да не воворажай :-Ь
Comer_, не надо так нервничать Появился очередной неприобщённый к дзену - таких сейчас столько, что на всех никаких нервов не хватит Предсказываю: скоро здесь появится Aquila и закроет тему. За скатывание на флуд
тогда терять нечего: diamond, спасибо за поддержку .) ++ кстате, а что делает кнопка "Сообщить модератору", аквиле просто приходит линк на данный пост, мол "приглядись ка"?
Чтоб на флуд не скатились, и акула не почувствовал запах крови, говорят акулы чувствуют каплю крови в воде, за 11 км, подскажите, что за ошибка у меня вот такая: Windows socket error: Обычно разрешается одно использование адреса сокета (протокол/сетевой адрес/порт)(10048), on API 'bind' diamond, не правда! Я воин дзена! На погоны лучше смотри!
надо тему в beginners переместить. 10048 - сокет два раза биндишь видимо. код показывай, нуб неблагодарный. всё, я в универ. и всё таки: впреть создавай темы в бегиннерс.
Comer_ ОФФТОП Помнишь анекдот: Записка на дверях УКГБ: "Все сотрудники на уборке картофеля. Стучать по телефону ..."
простите, мастер, виноват я ... Код (Text): //Application->ShowMainForm = false; Server->Active = true ; Server->Open() ; Memo1->Lines->Add("Ñîçäàí ñåðâåð."); FileName[0] = "1.txt"; FileName[1] = "2.txt"; FileName[2] = "3.txt"; FileName[3] = "4.txt"; FileName[4] = "5.txt"; FileName[5] = "6.txt"; FileName[6] = "7.txt"; FileName[7] = "8.txt"; FileName[8] = "9.txt"; FileName[9] = "10.txt"; FileName[10] = "11.txt"; FileName[11] = "12.txt"; FileName[12] = "13.txt"; FileName[13] = "14.txt"; FileName[14] = "15.txt"; FileName[15] = "16.txt"; FileName[16] = "17.txt"; FileName[17] = "18.txt"; FileName[18] = "19.txt"; FileName[19] = "20.txt"; //ïðîâåðÿåì âñå ôàéëû, êòî íå ïóñòîé for(int i=0; i<20; i++) { ifstream fin(FileName[i]); fin.get(ch); Form1->Edit1->Text = Edit1->Text + AnsiString(ch); fin.close(); //åñëè íå ïóñòîé if(Form1->Edit1->Text != "") { Memo1->Lines->Add(FileName[i]); //îòêðûâàåì ôàéë, ÷èòàåì çíà÷åíèå â Edit1->Text ifstream fin(FileName[i]); while(fin.get(ch)) Form1->Edit1->Text = Edit1->Text + AnsiString(ch); fin.close(); //ïðèñâàèâàåì ïðî÷èòàííûé IP ïåðåìåííîé AnsiString DestIP = AnsiString(Form1->Edit1->Text); Form1->Edit2->Text = DestIP; //áåæèì ïî âñåì àêòèâíûì ñîåäèíåíèÿì for(int j=0; Form1->Server->Socket->ActiveConnections; j++ ) { //åñëè åñòü ñîåäèíåíèå, çàïèñàííîå â ïåðåìåííîé DestIP if (Form1->Server->Socket->Connections[j]->LocalAddress == DestIP) { //îòïðàâëÿåì ïî ýòîìó IP ôàéë void *P; int Size ; Application->ShowMainForm = true; if(Form1->OpenDialog1->Execute()) { MS->LoadFromFile(OpenDialog1->FileName); Form1->Memo1->Lines->Add("Çàãðóçèëè òðåáóåìûé ôàéë â ïîòîê..."); } Form1->Server->Socket->Connections[j]->SendText("file#"+Form1->OpenDialog1->FileName+"#"+ IntToStr(MS->Size)+'#'); Form1->Memo1->Lines->Add("Ïîñëàëè èíôó î ôàéëå"); MS->Position = 0; P = MS->Memory; Size = Form1->Server->Socket->Connections[j]->SendBuf(P,MS->Size); Memo1->Lines->Add("Îòïðàâëåíî: " + IntToStr(Size)+" èç "+ IntToStr(MS->Size)); //îáíóëÿåì Edit1->Text è ôàéë Edit1->Text = ""; HANDLE hFile=CreateFile(FileName[i],GENERIC_WRITE,FILE_SHARE_READ,NULL,OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL,0); if(hFile!=INVALID_HANDLE_VALUE) { DWORD Writed; WriteFile(hFile, "",lstrlen(""),&Writed,NULL); CloseHandle(hFile); } } } } }
Я, конечно, латыни не знаю, но Lingvo меня уверяет, что "Aquila" в переводе с латыни означает "орёл"... Тогда приказываю: отставить эти разговорчики про "быстренько накропаем прогу, а что простая форма с одной кнопкой весит несколько сотен кило - так ведь диски сейчас большие, а процессорам делать особо нечего" - это не дзен!
Я использую порт 1000. У клиента и у сервера. запускаю только одно приложение - смотрю в Диспетчере задач. Из-за чего может быть такая ошибка?
извини, но ты действительно думаешь, что увидев ЭТО: Form1->Server->Socket->Connections[j]->SendText("file#"+Form1->OpenDialog1->FileName+"#"+IntToStr(MS->Size)+'#'); тебе на ЭТОМ форуме кто то ответит? я бы лично плюнул и закрыл тему.