Вопрос № 49517: Здравствуйте эксперты!Пишу сетевой тест на Delphi6. После того как запускаешь Клиента (ClientSocket1.Active:=true;), если не включен Сервер происходит ошибка. Как предупредить эту ошибку? Зарание спасибо!...Вопрос № 49519: здраствуйте уважаемые эксперты! такой вопросик можно ли в делфи зделать форму не стандатной! не прямоугольную, а например в виде ромба или круга! и если это можно сделать то как?...Вопрос № 49541: Здравствуйте Уважаемые Эксперты!
Как сделать так, чтобы Дельфи выбирала по порядку слово из текстового файла и вставляла это слово в memo, потом следующие и т.д. пока слова в файле не кончатся?
...Вопрос № 49562: Здрасти! Такой глобальный вопрос! возможность при помощи Delphi работать с 1С!!! Менять какие либо настройки, работа с базами, отчетами 1С и прочим!
кто что знает у кого какая информация есть! будьте так любезны помогите! так же бы не отказался ...Вопрос № 49563: Уважаемые эксперты, подскажите пожалуйста как использовать компонент TreeViev для просмотра информации из базы данных?...
Вопрос № 49.517
Здравствуйте эксперты!Пишу сетевой тест на Delphi6. После того как запускаешь Клиента (ClientSocket1.Active:=true;), если не включен Сервер происходит ошибка. Как предупредить эту ошибку? Зарание спасибо!
Отвечает: Ерёмин Андрей
Здравствуйте, Сергей Николаевич!
Вам нужно использовать обработчик исключительных ситуаций. Примерно так: try
{соединение}
except
ShowMessage('Ошибка соединения');
Abort;
end; --------- Нет правила без исключений. Правило без исключений - исключение из правил.
Отвечает: Степанов Сергей Игоревич
Здравствуйте, Сергей Николаевич!
У TClientSocket есть обработчик ошибок OnError в который передается параметр ErrorCode в котором указывается код ошибки. Тля того чтобы не выходило сообщение об ошибки надо ErrorCode присвоить значение 0.
Пример в приложение.
Приложение:
Ответ отправил: Степанов Сергей Игоревич (статус: 1-ый класс)
Ответ отправлен: 19.07.2006, 17:11
Вопрос № 49.519
здраствуйте уважаемые эксперты! такой вопросик можно ли в делфи зделать форму не стандатной! не прямоугольную, а например в виде ромба или круга! и если это можно сделать то как?
Приложение:
Отправлен: 18.07.2006, 22:43
Вопрос задал: Shnuroid (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Ерёмин Андрей
Здравствуйте, Shnuroid!
Можно. Делается обычно на основе bmp-изображения - в чёрно-белом формате. Чёрный цвет - форма, белый - фон, т.е. прозрачность. Задуманное можно осуществить с помощью компонента ShapedForm или соответствющего компонента из JediVCL. Также есть статья о том, как это сделать самому. Удачи!
--------- Нет правила без исключений. Правило без исключений - исключение из правил.
Отвечает: Melamed
Здравствуйте, Shnuroid!
Можно. Для этого надо создать регион, нужной формы и с помощью функции API SetWindowRgn Окну присваивается
созданный регион.
В приложении приведен код, который создает круглую форму. Но тебе наверняка придется еще
ряд системных сообщений перепраграмировать взависимости от поставленно
081; задачи.
Приложение:
Ответ отправил: Melamed (статус: 2-ой класс)
Ответ отправлен: 19.07.2006, 01:24
А вот пример создания правильной 8-угольной формы:
procedure TForm1.Button1Click(Sender: TObject);
var FormRgn: HRGN;
P:array[0..7] of TPoint;
w,k:integer;
begin
Form1.Height:=500; Form1.Width:=500;
w:=form1.Width;
k:=w div 3;
P[0]:=Point(k,0); P[1]:=Point(w-k,0);
P[2]:=Point(w,k); P[3]:=Point(w,w-k);
P[4]:=Point(w-k,w); P[5]:=Point(k,w);
P[6]:=Point(0,w-k); P[7]:=Point(0,k);
FormRgn:=CreatePolygonRgn(P,8,ALTERNATE);
SetWindowRgn(form1.Handle, FormRgn, true);
end;
Удачи!!!
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Студент)
Ответ отправлен: 19.07.2006, 10:13 Оценка за ответ: 5 Комментарий оценки: большое спасибо!!! мне это очень сильно помогло!!!
Вопрос № 49.541
Здравствуйте Уважаемые Эксперты!
Как сделать так, чтобы Дельфи выбирала по порядку слово из текстового файла и вставляла это слово в memo, потом следующие и т.д. пока слова в файле не кончатся?
Отвечает: Савенко Вадим Иванович
Здравствуйте, Исаков Евгений Владимирович!
Если я правильно понял, то Вам нужно поместить содержимое файла в Memo?
Если так, то это делается просто:
Memo1.Lines.LoadFromFile('text.txt');
Запись в файл:
Memo1.Lines.SaveToFile('text.txt');
Ответ отправил: Савенко Вадим Иванович (статус: 4-ый класс)
Ответ отправлен: 19.07.2006, 07:34 Оценка за ответ: 3 Комментарий оценки: нет, мне нужно было выбрать 1 слово из файла txt и добавить к содержимому memo.
Отвечает: Томша Павел
Здравствуйте, Исаков Евгений Владимирович!
В программировании нет такого типа "слово", есть только строка и символ. Поэтому или вам нужно будет считывать строку, а потом искать в ней слова, или считать по символу, пока не попадется пробел или знаки препинания. А слово можно прибавить к последней строке (Memo сам сделает перенос, если нужно будет)
В приложении код, читающий одно английское слово.
Приложение:
Ответ отправил: Томша Павел (статус: 1-ый класс)
Ответ отправлен: 19.07.2006, 08:20
Отвечает: Ерёмин Андрей
Здравствуйте, Исаков Евгений Владимирович!
См. мой код:
procedure TForm1.Button1Click(Sender: TObject);
var Vf1: file;
NRead, NWrite: Integer;
Buf: array[1..1024] of Char;
AllText: WideString;
begin AssignFile(Vf1,'text.txt');
Reset(Vf1,1);
repeat BlockRead(Vf1, Buf, SizeOf(Buf), NRead);
AllText:=AllText+Buf;
until (NRead = 0);
CloseFile(Vf1);
{Вывод слов}
while Pos(' ',AllText) > 0 do begin Memo1.Lines.Add(Copy(AllText,1,Pos(' ',AllText)-1));
Delete(AllText,1,Pos(' ',AllText));
Sleep(10);
Application.ProcessMessages;
end;
end;
Поместите в папку с программой файл text.txt, в который поместите каой-нибудь текст. Запустите программу и нажмите на кнопку. Слова из файла будут по порядку выводиться в Memo1 (причём с небольшой задержкой для большего эффекта). Насколько я понял вопрос, вам именно это и было нужно...
--------- Нет правила без исключений. Правило без исключений - исключение из правил.
Отвечает: Tsechoev Bagaudin
Здравствуйте, Исаков Евгений Владимирович!
Качаете RxLib отсюда под свой делфи. Там вы обнаружите очень много чего полезного, и в юните StrUtil есть функции ExtractWord и т.д.
--------- Есть только одно зло - невежество, и только одно благо - знания
Ответ отправил: Tsechoev Bagaudin (статус: Студент)
Ответ отправлен: 19.07.2006, 12:45
Вопрос № 49.562
Здрасти! Такой глобальный вопрос! возможность при помощи Delphi работать с 1С!!! Менять какие либо настройки, работа с базами, отчетами 1С и прочим!
кто что знает у кого какая информация есть! будьте так любезны помогите! так же бы не отказался от сылок на сайты где про это можно почитать!!!
зарание благодарин!!!
Отправлен: 19.07.2006, 11:11
Вопрос задал: Shnuroid (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Bochvarov NikB
Здравствуйте, Сапожников Владимир Алексеевич!
Кароткий ответ: как позволяет тебе твое воображение.
Нет "стандартние" средства - надо все писат сам "в ручную".
Ответ отправил: Bochvarov NikB (статус: 10-ый класс)
Ответ отправлен: 19.07.2006, 12:39
