Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Шичко Игорь Статус: Практикант Рейтинг: 186 ∙ повысить рейтинг >>

Виктор Пырлик Статус: Профессионал Рейтинг: 57 ∙ повысить рейтинг >>

Genia007 Статус: Студент Рейтинг: 51 ∙ повысить рейтинг >>

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

Выпуск № 1243
от 29.11.2008, 23:05

Вопрос № 151558: здравствуйте уважаемые эксперты решил добавить в прогу ведение логов ошибок и натолкнулся на проблемку. Не знаю как можно получить имя процедуры в которой была вызвана эта процедура. Тоесть я для отлавливания всех ошибок использую Appli...

Вопрос № 151.558

здравствуйте уважаемые эксперты решил добавить в прогу ведение логов ошибок и натолкнулся на проблемку. Не знаю как можно получить имя процедуры в которой была вызвана эта процедура. Тоесть я для отлавливания всех ошибок использую ApplicationEvents (ну чтобы в каждой процедуре не писать try....except) OnException в ней написал : DebuggerLogs(E.Message); DebuggerLogs - просто пишет в лог все ошибки вопрос - как кроме ошибок в таком варианте получить еще и имя процедуры в которой она произошла ? Специализированные библиотеки компонентов прошу не предлагать - я про них сам знаю :)

Отправлен: 23.11.2008, 18:47 Вопрос задал: source (статус: 2-й класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Шевченко Дмитрий Здравствуйте, source! Можно сделать глобальную переменную типа String и в начале каждой процедуры записывать в неё название этой процедуры. В случае ошибки - записать её значение в лог.

Ответ отправил: Шевченко Дмитрий (статус: 5-й класс) Ответ отправлен: 23.11.2008, 19:36 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 236453 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 4 Комментарий оценки: не - у меня более 40 000 строк в программе если не получится, то буду использовать баблиотеку бля создания багрепорта как в QIP Infirm

Вопрос № 151.671

Здравствуйте, уважаемые эксперты! Нужно загрузить графический файл в TImage и предотвратить открытие испорченных или пустых файлов. Например, создаю пустой файл пустышка.JPG и при попытке его открыть выскакивает окошко "JPEG error #42" , а я хочу, чтобы выводилось осмысленное сообщение, типа "Файл поврежден" (см. листинг). Подскажите, как быть? Приложение: uses JPEG; ...................... procedure TForm1.Button1Click(Sender: TObject); begin if OpenPictureDialog1.Execute then try Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); except on EInvalidGraphic do Application.MessageBox('Файл поврежден','Ошибка',MB_OK); end; end;

Отправлен: 24.11.2008, 17:52 Вопрос задал: Гидроген (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 9)

Отвечает: Виктор Пырлик Здравствуйте, Гидроген! вот так попробуйте Код: procedure TForm1.Button1Click(Sender: TObject); begin if OpenPictureDialog1.Execute then begin try Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); except on e:Exception do MessageBox(GetActiveWindow,PChar(Format('Ошибка:%s'#13+'файл поврежден',[e.Message])),'Ошибка',MB_OK+MB_ICONSTOP); end; end; end; --------- не получается там - где не пробуют

Ответ отправил: Виктор Пырлик (статус: Профессионал) Россия, Екатеринбург Тел.: 89043822027 ICQ: 490191733 ---- Ответ отправлен: 24.11.2008, 18:11 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 236558 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 151.691

Уважаемые эксперты,подскажите пожалуйста новичку как прописать програмку.... так что бы по истечении 1минуты программа закрывалась...Заранее благодарю...

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

Отвечает: Максим Sly Здравствуйте, Dorik! В делфи нужно на форме разместить компонент время(TIMER) на вкладке System на форме, для процедуры FormActivate (Активация формы) написать следующее procedure Tform1.FormActivate(Sender: TObject); begin form1.Timer1.Enabled := true; end; после для Timer указываем количество секунд, которое он будет работать и после чего произойдет выполнение следующей процедуры (для саого таймера) procedure Tform1.Timer1Timer(Sender: TObject); begin Application.Terminate; // закрытие программы end; --------- Мы не ищем легких путей.... они сами нас находят:)

Ответ отправил: Максим Sly (статус: 1-й класс) Ответ отправлен: 24.11.2008, 19:28 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 236577 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 151.694

Уважаемые эксперты, как прописать таймер что бы он отсчитывал время назад и был видим на форме(в label или panel) и после того как время будет 00:00:00 программа закроется??

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

Отвечает: Виктор Пырлик Здравствуйте, Dorik! вот код Код: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls,DateUtils; type TForm1 = class(TForm) Label1: TLabel; Timer1: TTimer; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public mtime:TDateTime; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin mtime := StrToTime('00:00:59');// установим время - 59 секунд T imer1.Interval := 1000; //1 секунда Timer1.Enabled := false; end; procedure TForm1.Timer1Timer(Sender: TObject); begin mtime :=IncSecond(mtime,-1); // уменьшаяем на 1 секунду if mtime >0 then begin Label1.Caption := TimeToStr(mtime); // отображаем end else begin Timer1.Enabled := false; // останавливаем таймер //Close; // или закрываем приложение end; end; procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled := true; end; end. --------- не получается там - где не пробуют

Ответ отправил: Виктор Пырлик (статус: Профессионал) Россия, Екатеринбург Тел.: 89043822027 ICQ: 490191733 ---- Ответ отправлен: 24.11.2008, 20:31 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 236584 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5

Отвечает: Drbear Здравствуйте, Dorik! Попробуйте вариант без использования таймера (в приложении). Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure Delay(iDelay: Longint); var iStart, iStop: Integer; begin iStart := GetTickCount; repeat sleep(100); // что-бы не мельтешило iStop := GetTickCount; Form1.Label1.Caption := 'До закрытия приложения осталось ' + IntToStr(iDelay - (iStop - iStart)) + ' мс.'; Application.ProcessMessages; until ((iStop - iStart) >= iDelay) or (Application.Terminated); end; procedure TForm1.Button1Click(Sender: TObject); begin Delay(1000 * 5); Close; // или // Application.Terminate; end; end.

Ответ отправил: Drbear (статус: Студент) Ответ отправлен: 24.11.2008, 20:47 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 236588 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5

Вопрос № 151.696

Здравствуйте, господа эксперты. Имеется следующая проблема. Главное окно программы скрывается по правому тыку на кнопке в панели инструментов, вот так Код: procedure TMainForm.ToolButton2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin case Button of mbRight: MainForm.Hide; mbLeft: Close; end; end; Также в коде самого проекта есть такое Код: begin if mmm then begin ShowWindow(FindWindow('TMainForm','Главное окн о'),SW_RESTORE); Application.Terminate; end else begin SplashForm:=TSplashForm.Create(nil); SplashForm.Show; SplashForm.Repaint; Application.Initialize; Application.Title := 'Главное окно'; Application.CreateForm(TMainForm, MainForm); Application.CreateForm(TDataModule1, DataModule1); Application.CreateForm(TEditRecForm, EditRecForm); Application.CreateForm(TFormParametr, FormParametr); Sleep(1000); SplashForm.Close; Application.Run; end; end. То есть, если приложение уже запущено, но сидит в трее, то окно просто активизируется. И вот в чём проблема, второй раз правый клик уже не работает. Окно не скрывается. Подскажите где собака зарыта?

Отправлен: 24.11.2008, 19:58 Вопрос задал: Maximus777 (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Drbear Здравствуйте, Maximus777! Попробуйте после активизации приложения воткнуть такую функцию указав в качестве входного параметра MainForm Приложение: procedure SetAsMainForm(aF: TForm); var p: Pointer; begin p := @Application.Mainform; Pointer(P^) := aF; end;

Ответ отправил: Drbear (статус: Студент) Ответ отправлен: 24.11.2008, 20:57 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 236590 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Отвечает: monah Здравствуйте, Maximus777! В строке Cloce добавте указатель на себя Self.close; А еще лучше воспользуйтесь API функцией ShowWindow(application.handle, sw_hide); // прячет приложение ShowWindow(Self.handle, sw_hide); // прячет форму также попробуйте application.minimize; Приложение: case Button of mbRight: Self.Hide; mbLeft: Self.Close; end --------- festina lente

Ответ отправил: monah (статус: Практикант) Ответ отправлен: 24.11.2008, 21:38 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 236593 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 151.701

Здравствуйте! У меня проблема: мне необходимо сделать программу, которая будет вращать квадрат. У меня не получается это сделать, т.е. частично я это сделал - у меня получается вращение какой-то другой фигуры, но как превратить ее в квадрат я не знаю. Причем, можно, чтобы она вращалась не вокруг своей оси, а так, как она сейчас вращается (увидите, когда запустите программу) - главное, чтобы это был квадрат, а не тот 4-угольник, который у меня там получился. Люди, помогите, пожалуйста, сделать так, чтобы вместо моей получившейся фигуры вращался квадрат? Язык программирования: Delphi 7. Программа в приложении. На форме располагается таймер и Image. Также я использую модуль, код которого будет приведен в приложении после кода проги. Еще Вам понадобится пустой файл *.bmp, который применяется для очистки Image от следов фигуры при вращении. Я УЖАСНО ИЗМУЧИЛСЯ. ОГРОМНОЕ СПАСИБО!!! УМОЛЯЮ, ПОСМОТРИТЕ ПРОГРАММУ, ПОЖАЛУЙТСТА!! Приложение: Код программы: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, matrices2d, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; Image1: TImage; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; const dx=140; // координаты центра фигуры dy=140; fi=Pi/2; // угол поворота var Form1: TForm1; abc:array[0..3]of tvertex=((120,10,1), // массив точек, из которых состоит фигура (120,80,1), (160,80,1), (160,10,1) ); T1:TTransform=((1,0,0), (0,1,0), (-dx,-dy,1)); R:ttransform=( (1,0,0), (0,1,0), (0,0,1)); T2:TTransform=( (1,0,0), (0,1,0), (dx,dy,1)); t:TTransform; mass:array[1..28] of TPoint; b:byte; BitMap:Tbitmap; implementation {$R *.dfm} procedure koordinati(); // Вычисляем координаты и добавляем их в массив var i:byte; tmpabc:array[0..3] of tvertex; begin for i:=0 to 3 do tmpabc[i]:=abc[i]; for i:=1 to 14 do begin applytransform(tmpabc, tmpabc, t); mass[i].X:=round(tmpabc[0,0]); mass[i].Y:=round(tmpabc[0,1]); mass[i+1].x:=round(tmpabc[1,0]); mass[i+1].Y:=round (tmpabc[1,1]); mass[i+2].x:=round(tmpabc[2,0]); mass[i+2].Y:=round(tmpabc[2,1]); mass[i+3].x:=round(tmpabc[3,0]); mass[i+3].Y:=round(tmpabc[3,1]); end; end; procedure TForm1.FormCreate(Sender: TObject); begin BitMap:=Tbitmap.Create; BitMap.LoadFromFile('1.bmp'); b:=0; r[0,0]:=cos(fi); r[0,1]:=sin(fi); r[1,0]:=-sin(fi); r[1,1]:=cos(fi); combinetransform (t,t1,r); combinetransform (t,t,t2); koordinati; end; procedure TForm1.Timer1Timer(Sender: TObject); // Рисуем фигуру begin if b=10 then b:=0; inc(b); image1.canvas.Draw(0,0,BitMap); image1.Canvas.brush.color:=clred; image1.Canvas.pen.color:=clred; image1.canvas.polygon([ point(mass[b].x, mass[b].y), point(mass[b+1].x, mass[b+1].y), point(mass[b+2].x, mass[b+2].y), point(mass[b+3].x, mass[b+3].y) ]); end; end. Код модуля: (************************************************************ * Модуль содержит объявления типов данных и продпрограммы, * * необходимые для построения двумерных преобразований* * координат в матричной форме* ************************************************************) unit matrices2D; interface type //Двухмерный массив для представления матриц преобразований координат размером 3х3 TTransform = array[0..2, 0..2] of Double; //одномерный массив для представления матрицы //однородных координат одной вершины TVertex = array[0..2] of Double; //осуществляет преобразование координат вершин фигуры, переданных в массиве V //с помощью матрицы T: [V1]:=[V]*[T] procedure ApplyTransform(var V1 : array of TVertex; const V : array of TVertex; const T : TTransform); //вычисляет матрицу общего преобразования T, перемножая матрицы T1 è T2 //составляющих его преобразований procedure CombineTransform(var T : TTransform; const T1, T2 : TTransform); implementation //осуществляет преобразование координат вершин фигуры, переданных в массиве V, //с помощью матрицы T: [V1]:=[V]*[T] procedure ApplyTransform(var V1 : array of TVertex; const V : array of TVertex; const T : TTransform); var i, j : Integer; P : TVertex; begin //пройдем по всем вершинам фигуры for i := 0 to High(V) do begin //вычислим и поместим в P преобразованные координаты i-ой вершины for j := 0 to 2 do P[j] := V[i, 0] * T[0, j] + V[i, 1] * T[1, j] + V[i, 2] * T[2, j]; //сохраним вычисленные координаты i-й вершины в массиве V V1[i] := P; end end; //Вычисляет матрицу общего преобразования T, перемножая матрицы T1 и T2 //составляющих его преобразований procedure CombineTransform(var T : TTransform; const T1, T2 : TTransform); var //временный будер для хранения преобразований Tmp : TTransform; i, j : Integer; begin //вычислим и поместим в Tmp матрицу общего преобразования for i := 0 to 2 do //пройдем по всем строкам for j := 0 to 2 do //пройдем по всем столбцам Tmp[i, j] := T1[i, 0] * T2[0, j] + T1[i, 1] * T2[1, j] + T1[i, 2] * T2[2, j]; T := Tmp; end; end.

Отправлен: 24.11.2008, 20:17 Вопрос задал: AkaProc (статус: 4-й класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Genia007 Здравствуйте, AkaProc! Вместо Вашей программы могу предложить свою, которая намного проще, на форме таймер и PaintBox, код в приложении, а весь проект по адресу: http://jonix.ucoz.ru/proejct/kvadrat.rar Приложение: unit Unit7; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Timer1: TTimer; PaintBox1: TPaintBox; procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; fi: word; implementation {$R *.dfm} procedure DrawFigura(Canvas: TCanvas; Center, Pos: TPoint); { Рисование квадрата Center - центр фигуры; Pos - точка, лежащая на внешнем радиусе; } function Max(A, B: Integer): Integer; begin if A > B then Result := A else Result := B; end; function ArcTan2(Y, X: Extended): Extended; asm FLD Y FLD X FPATAN FWAIT end; const Rad = Pi / 180; var R, rd: Word; i: Integer; p: array of TPoint; a, ad: Double; begin if fi = 360 then fi:= 0; {начальный угол:} a := (ArcTan2(Center.y - Pos.y, Pos.x - Center.x) * (180 / Pi)) + fi; R := Max(Abs(Center.x - Pos.x), Abs(Center.y - Pos.y)); If R = 0 then R:= 20; SetLength(p, 4); {устанавливаем длину массива точек} ad := 90; {угол между рядом стоящими точками} rd := R; inc(fi); for i := 0 to 3 do begin p[i].x := Trunc(Cos(a * Rad) * rd) + Center.x; p[i].y := Trunc(Sin(a * Rad) * rd) + Center.y; a := a + ad; {увеличиваем угол} end; {рисуем квадрат} Canvas.Brush.Color:= clred; Canvas.Polygon(p); end; procedure TForm1.Timer1Timer(Sender: TObject); begin PaintBox1.Repaint; PaintBox1.Canvas.Pen.Width:= 2; PaintBox1.Canvas.Pen.Color:= clred; DrawFigura(PaintBox1.Canvas, Point(PaintBox1.Width div 2, (PaintBox1.Height div 2)), Point(PaintBox1.Width div 2, 0)); end; procedure TForm1.FormCreate(Sender: TObject); begin fi:= 0; end; end. --------- Помогли тебе, помоги и ты.

Ответ отправил: Genia007 (статус: Студент) Ответ отправлен: 26.11.2008, 20:25 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 236807 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Спасибо!

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