День добрый, Юнит Sockets.pas, Класс TBaseSocket, метод Select(). Реализация: [Code] try {$IFDEF MSWINDOWS} Result := ErrorCheck(WinSock.select([Big]FSocket + 1[/Big], ReadFdsptr, WriteFdsptr, ExceptFdsptr, Timeptr)) > 0; {$ENDIF} {$IFDEF LINUX} Result := ErrorCheck(Libc.select(FSocket + 1, ReadFdsptr, WriteFdsptr, ExceptFdsptr, Timeptr)) > 0; {$ENDIF} except Result := False; end; ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82945

Уважаемые гуру, подскажите пожалуйста, как корректно отобразить строку в DBGrid как строку, а не как мемо? Сейчас у меня отображается как будто случайным образом. В зависимости от значения параметра к DataSource (из которого DBGrid берет данные) подключается один или другой ADOQuery. Типы полей в обоих случаях одинаковы, но в первом все значения отображаются правильно, а во втором - один из столбцов - (MEMO). Что можно предпринять? Заранее спасибо. ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82941

Delphi 7. Хотел сделать так

code:
var
  Stream: TFileStream;
begin
  Stream:=TFileStream.Create('c:\Temp\MyFile.dat',fmCreate);
  Stream.Size := 5000*1024*1024;
  Stream.Free;
  Self.Close;
end;

На этапе компиляции получаю ошибку Overflow in conversion or arithmetic operation [EM]Stream.Size[/EM] имеет тип [EM]Int64[/EM]. Думал, что не будет переполнения... Выкрутился так [Code]var Stream: TFileStream; MySize: Int64; begin MySize := 1; MySize := MySize * 500 ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82940

Кажется просто, но не очень... Таблицу из Delphi отправил в Excel, но как объединить два столбца('Иванов' + ' ' + 'Иван') в Excel не смог. Нужно |Фамилия|+|Имя| записать в |Фамилия Имя|. ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82939

В классе TIzmCalcMethod есть ссылка на интерфейс FIzm : IIzm; при разрушении ссылки присваивается nil, лезет ошибка в системной функции сброса счётчика ссылок _IntfClear, при вызове CALL DWORD PTR [EAX] + VMTOFFSET IInterface._Release [Code] TIzmCalcMethod = class (TComponent) FIzmMethodID : Int64; FIzmObjects : TIzmCalcObjects; FIzmQuantites : TIzmCalcQuantites; FIzm : IIzm; end; ... destructor TIzmCalcMethod.Destroy; begin FIzm := nil; inherited; end; [/ ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82938

Добрый день. Я никак не могу понять одну штуку. Есть массив типа 1.1.1.2.2.3.3.... хочу на выходе поучить динамический массив 1.2.3.4..... делаю так не работает [Big] procedure TForm1.Button1Click(Sender: TObject); var ar1: array[0..20] of integer; ar2: array of integer; sort:boolean; i,y:integer; begin ar1[0]:=1; ar1[1]:=1; ar1[2]:=1; ar1[3]:=2; ar1[4]:=3; ar1[5]:=3; ar1[6]:=4; ar1[7]:=4; ar1[8]:=5; ar1[9]:=5; ar1[10]:=6; ar1[11]:=6; ar1[12]:=7; ar1[13]:=7; ar1[14]:=8 ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82891

Помогите придумать алгоритм для быстрого добавления НОВОЙ информации в базу данных. Ситуация такая: Есть много текстовых файлов (логи с событиями), которые для удобства обработки надо хранить в базе данных. Просто единоразово занести данные в базу, раскидав по полям - проблем не составляет (это хоть и долго, но решаемо). Проблема же в том, что файлы (логи) пополняются. И следующим этапом надо вносить в базу только новые строки. Немного расскажу о структуре лог-файла: Файлы с произвольным ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82885

Добрый время суток, у меня вопрос связан с анимация... пример Координата := Координата + Дельта Координаты, то происходит быстрое перескок видно, Как сделать более плановое смешение так что было возможность управление скорости... (к сожалению не могу использовать готовые движке ) ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82846

Всем привет! Как программно определить о просмотре видео в системе WindowsXP, неважно каким видеоплеером. ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82845

Здравствуйте! Озадачен вопросом: Как определить физическое расположение файла, то есть номер физического диска, номера секторов, где лежит файл. Речь идет о флешке или внешнем HDD с разделом fat32. Понимаю, что можно получить для всех дисков тип и выбрать съемный диск(если подключен только один USB накопитель), потом, прочитав MBR, найти разделы, определить ФС каждого раздела, и рыть FAT32 в найденных разделах в поисках нужного файла, найти кластеры файла, пересчитать в сектора, прибавить все с ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82843

Здравствуйте! Столкнулся с проблемой в редакторе IDE. После нескольких лет решил поменять цветовую схему. Видимо что-то куда-то ткнул, и в редакторе появились непонятные символы в конце каждой строки. http://i60.fastpic.ru/big/2015/0129/27/bb1b827fedb21c0535bcebdec5611e27.jpg Опытным путем нашел, что у элемента Whitespace нужно поставить Foreground = black, в этом случае символы сливаются с фоном, но снова становятся видимыми при подсветке строки. А при выделении фрагмента текста в строке на ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82842

Доброе время суток! Вопрос скорей хореографический нежели технический, но хотелось бы узнать, как передать указатель на буфер из одного процесса в другой. А если конкретней, отправляю сообщение (SendMessage) из одного процесса в другой, как организовать буфер, чтобы в сообщении можно было корректно передать на него указатель? Буду рад всем возможным вариантам! :-) ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82841

Доброго времени суток! Вопрос касательно потоков (TThread) и динамически создаваемых/убиваемых объектов, с которыми неполадки в управлении. Коротко о проекте: Проект работает с потоками. На каждый поток по своей задаче. Для этого был написан менеджер потоков (Архитектура: [Менеджер] -> [Объект - родитель потока (Чтобы менеджер не занимался еще и управлением потоками)] -> Собственно и сам поток. У каждого потока есть свои задачи, которые хранятся в Tasks: array of Object. Как из этого ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82840

Всем привет! На MySQL столкнулся с такой проблемой. В поле file_path(text) идет запись значения с помощью запроса, в значении указан путь к папке. В пути встречаются символы \ и !, символы \ опускаются, но с ними все понятно, чтобы их экранировать нужно записывать \\. А с восклицательным не знаю что делать, все символы стоящие между ! и следующим пробелом попросту стираются. Есть решения как победить эту проблему? Используется MySQL + FireDAC ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82837

Здравствуйте! Имеется xml файл: [Code] - - -

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82830

Здравствуйте! С Новым всех Годом! Возникла необходимость написать програмку наподобии простой SСADA,т.е. програмку визуализации где пользователь собирает сам рисунок, который отображает какие то состояния системы. Сделал динамическое создание Label,Panel,Image,Shape. В форме наподобии инспектора объектов пользователь может менять параметры, мышкой можно перемещать объекты и менять их размеры. Все хорошо пока не дошел до отображения движущихся примитивов. Решил примитывы создавать скажем в M ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82828

C Новым Годом уважаемые жители королевства :-) Вопрос по DevExpress CxGrid. Delphi XE. Есть таблица с данными. Производим сортировку по какой либо колонке средствами CxGrid. Редактируем значение какого либо поля в этой колонке. При сохранении текущая запись (строка в таблице) перемещается на место, которое должно быть в соответствии со значением поля и направлением сортировки по этому полю. Вопрос: Можно ли каким либо образом сделать так, чтобы после редактирования эта запись все равн ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82821

ISAPI. Не работает Request.WriteString в IIS 7.5 С Новым годом! Уже 3-й день не могу решить вроде бы простую проблему. В IIS 5 работал стандартный шаблон (здесь сервер шлет сообщения, которые появляются в браузере постепенно, друг за другом, примерно с интервалом в 2 секунды) [Code]procedure TWebModule1.StartPage(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); var s: string; i: integer; begin Response.SendResponse; // эта команда должна идти пе ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82818

Всех с наступившим Новым годом! Вопрос по Crystal Report-у, и заключается в смене его DataSource в рантайме. Ситуация осложнена тем, что это Crystal Reports версии 7.0. (иные версии я использовать не могу, т.к. файлы отчетов сделаны на 7.0 и их изменять я не в праве). Сейчас работа кривореализована следующим образом - выполняется запрос к SQL-серверу, затем полученный набор данных заливается в *.mdb, который и является источником данных отчета. Очень хотелось бы исключить Access как промежуто ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82817

Доброго времени суток! Прошу помощи гуру! Есть программа написанная на Delphi XE2 и DLL написанная на Microsoft Visual C++ 2010. Из программы вызывается функция с передачей ей функции обратного вызова: код Delphi: [Code]function GetResult(CallBack: Pointer): PAnsiChar; stdcall; external 'test_cb.dll' name '_GetResult@4'; function CB_FUNC(A: Integer): boolean; stdcall; begin Result := A > 0; end; procedure TForm3.Button1Click(Sender: TObject); begin ListBox1.Items.Add(Str ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82816