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

Выпуск № 858
от 04.07.2007, 21:05

Вопрос № 93.297

Необходимо реализовать следующее: Пользователь загрузил рисуонк в TImage. Кликнул по нему и понёс мышкой в нужное место. Нажал опять на имейдж когда тот оказался в нужной точке и имейдж пересталд идити за мышкой. как реализовать?

Отправлен: 29.06.2007, 07:59 Вопрос задал: Тепленёв Максим Витальевич 2 (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 7)

Отвечает: LanK Здравствуйте, Тепленёв Максим Витальевич 2! Таких примеров множество как и способов... в приложении ПОЛНЫЙ типичный код. Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, RxGIF, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } Dr: Boolean; XOffset, YOffset: Integer; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Image1MouseDown(Sender: TObject; BUTTON: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Dr := True; XOffset := X; YOffset := Y; end; procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if Dr then begin Image1.Left := (Image1.Left + X) - XOffset; Image1.Top := (Image1.Top + Y) - YOffset; end; end; procedure TForm1.Image1MouseUp(Sender: TObject; BUTTON: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Dr := False; Image1.Left := (Image1.Left + X) - XOffset; Image1.Top := (Image1.Top + Y) - YOffset; end; end. --------- Пусть все будет хорошо! Давайте жить дружно! :) И будет жить еще лучше!

Ответ отправил: LanK (статус: Студент) Ответ отправлен: 29.06.2007, 08:37

Отвечает: Василенко Алексей Васильевич Здравствуйте, Тепленёв Максим Витальевич 2! один из вариантов решения Переменные move : boolean; признак того, что изображение передвигается top_s : integer; left_s : intreger: относительное положение мышки и верхней точки Имаджа. процедура FormCreate устанавливает начальные значения переменных процедура Image1MouseDown начинает перемещение процедура Image1MouseMove выполняет движение процедура Image1MouseUp заканчивает движение т.е. Движение происходит при зажатой левой кнопке процедура Image1ContextPopup загружает изображение через OpenPictureDialog1. в приложении полный Unit1.pas Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ExtDlgs, Menus; type TForm1 = class(TForm) Image1: TImage; OpenPictureDialog1: TOpenPictureDialog; procedure FormCreate(Sender: TObject); procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Image1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); private { Private declarations } public { Public declarations } end; var Form1: TForm1; move : boolean; top_s : integer; left_s : integer; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin // задание начальных значений. move := false; top_s := 0; left_s := 0; end; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin move := true; // Теперь имадж бут двигаться left_s := X - Image1.Left; top_s := Y - Image1.Top; end; procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin // задание начальных значений. move := false; top_s := 0; left_s := 0; end; procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if move then begin Image1.Top := Y - top_s; Image1.Left := X - left_s; end; end; procedure TForm1.Image1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); begin if OpenPictureDialog1.Execute then begin image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); end; end; end. --------- Человек развивается только преодолевая трудности

Ответ отправил: Василенко Алексей Васильевич (статус: 2-ой класс) Ответ отправлен: 30.06.2007, 16:32

Вопрос № 93.307

Здравствуйте уважаемые эксперты. Подскажите пожалуйста, как проверить переменную s ( var s:string ) является ли она числом. Пробовал пользоваться procedure Val(S:string; V:real; Code: Integer); , но не получаесять проверять большие чила.

Отправлен: 29.06.2007, 10:05 Вопрос задал: Левадный Тимур Русланович (статус: 1-ый класс) Всего ответов: 8 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Omickron Здравствуйте, Левадный Тимур Русланович! Попробуйте использовать блоки try-except-end. Приложение: try i:=StrToInt(s); ShowMessage ('Число'); except ShowMessage ('Не число'); end;

Ответ отправил: Omickron (статус: 3-ий класс) Ответ отправлен: 29.06.2007, 10:09 Оценка за ответ: 5 Комментарий оценки: Спасибо, всё получилось

Отвечает: BlackRaider Здравствуйте, Левадный Тимур Русланович! Ответ удален и помещен для обсуждения на форум rusfaq.ru, т.к. функция приведенная в приложении будет давать ошибочные результаты: Удаленные ответы для обсуждения Эксперт sir henry

Ответ отправил: BlackRaider (статус: 1-ый класс) Ответ отправлен: 29.06.2007, 10:13 Оценка за ответ: 3 Комментарий оценки: Я не понял, что такое trim, но я понял ход ваших мыслей, и по моему вы не учли что проверяемая переменная sstr моюет быть к примеру такой: 123,,0 Все символы из сета, но значение не корректно.

Отвечает: Igor_ Здравствуйте, Левадный Тимур Русланович! Ответ удален как не соответствующий названию рассылки и помещен для обсуждения на форум rusfaq.ru: Удаленные ответы для обсуждения Эксперт sir henry

Ответ отправил: Igor_ (статус: 3-ий класс) Ответ отправлен: 29.06.2007, 10:29 Оценка за ответ: 4 Комментарий оценки: К сожалению ничего не понял но всё равно спасибо

Отвечает: Sandy Здравствуйте, Левадный Тимур Русланович! Ответ удален как ошибочный и помещен для обсуждения на форум rusfaq.ru: Удаленные ответы для обсуждения Эксперт sir henry

Ответ отправил: Sandy (статус: 6-ой класс) Ответ отправлен: 29.06.2007, 11:00

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, Левадный Тимур Русланович! Надо всего лишь убедиться, что строка состоит только из цифр и не более, чем одного десятичного разделителя. Символ используемый в системе в качестве десятичного разделителя, хранится в переменной DecimalSeparator, которая определяется в SysUtils. Можно еще проверять, чтобы вначале не было нулей и не считать числами сторки типа "007" =) А так код в приложении. Приложение: function isNumber(s: string): boolean; var i: integer; dcc: integer; begin dcc := 0; isNumber := true; for i := 1 to length(s) do case s[i] of '0'..'9': ; // do nothing DecimalSeparator: inc(dcc); else isNumber := false; end; if (dcc > 1) then isNumber := false; end; --------- Не узнаешь - не попробуешь.

Ответ отправил: Сухомлин Кирилл Владимирович (статус: Специалист) Ответ отправлен: 29.06.2007, 13:18 Оценка за ответ: 5 Комментарий оценки: Спасибо за ваш ответ. Интересная информация о DecimalSeparator. Но всеже я воспользуюсь ответом Omickron'а.

Отвечает: Esi Здравствуйте, Левадный Тимур Русланович! Нужно сделать проверку, например сравнить с нулём. try if strtoint(s)>0 then label1.text:='s-число'; except label1.text:='s не является числом'; end;

Ответ отправил: Esi (статус: 2-ой класс) Ответ отправлен: 29.06.2007, 19:03 Оценка за ответ: 4 Комментарий оценки: Да, но число может быть и отицательным.

Отвечает: Louken Здравствуйте, Левадный Тимур Русланович! Мне вообще непонятно, почему у Вас не получается с Val, может быть что то просто делаете не так, ведь функция StrToInt, преобразует число именно с помощью него: function StrToInt(const S: string): Integer; var E: Integer; begin Val(S, Result, E); if E <> 0 then {Здесь вызывается исключение (ошибка)} end; Если уж Вас устроил ответ Omickron'а, то предложу свой вариант, как я считаю более правильный. Нет необходимости замарачиваться и использовать блоки try-except-end, достаточно написать так: if TryStrToInt(s,i) then ShowMessage ('Число') else ShowMessage ('Не число'); Если Вам действительно нужны большие числа, то используйте тип int64, в нем доступны 19 знаков (если правильно посчитал), тогда Вам понадобиться функция TryStrToInt64. Если Вам нужны вещественные числа (дробные), то используйте TryStrToFloat. Главное помните, что если Вы пишите: if TryStrToInt64(s,i) then {...}, то переменная i должна быть описана именно так: var i: int64; тип integer здесь не подойдет. Для функции TryStrToFloat, нужна переменная типа Extended. Удачи.

Ответ отправил: Louken (статус: 9-ый класс) Ответ отправлен: 29.06.2007, 22:05 Оценка за ответ: 5 Комментарий оценки: Извиняюсь, длинная строк с числом была боьшая а не само число. В ответе Omickron'а я взял блоки try-except-end и заменил StrToInt на floattostr. Спасибо за ответ.

Отвечает: Василенко Алексей Васильевич Здравствуйте, Левадный Тимур Русланович! Если в строке записано десятичное число, то в строке кроме символов 0,1,2,3,4,5,6,7,8,9 и "," больше никаких символов не будет. исключение составит пробел как разделитель разрядов, что нежелательно. Мое предложение - написать функцию посимвольной проверки строки. --------- Человек развивается только преодолевая трудности

Ответ отправил: Василенко Алексей Васильевич (статус: 2-ой класс) Ответ отправлен: 30.06.2007, 15:19 Оценка за ответ: 3

Вопрос № 93.313

Здравствуйте, уважаемые Эксперты! Дайте, пожалуйста, исходник получения текста web страницы. С помощью Delphi7 стандартными компонентами. Как я давал только что на вопрос 93297 тестовая страница http://rusfaq.ru/index.php (например я точно не знаю какая у rusfaq но это не важно) мне ее потом надо будет обработать как тескт - вытащить ОДНО значение. Спасибо!

Отправлен: 29.06.2007, 10:42 Вопрос задал: LanK (статус: Студент) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Omickron Здравствуйте, LanK! Вариантов решения задачи много. Я, в своё время использовал компоненты Indy. В частности, TIdHTTP. Задаёте значения хоста, порта (80, по умолчанию), разрешаете cookies (AllowCookies:=true), если нужно поддерживать сессию, и пользуетесь методами GET и POST для отправки соответствующих запросов. Для передачи данных в POST используется массив строк TStringList. Приложение: s:string; s:=Form1.IdHTTP1.Get ('/index.php'); par:TStringList; par:=TStringList.Create; par.Add('parametr1=12'); par.Add('parametr2=23'); s:=Form1.IdHTTP1.Post('/index.php',par); В обоих случаях вы получите код странички. Если нужно получить заголовок ответа - используйте Form1.IdHTTP1.Response.RawHeaders.Text Но после того, как будет выполнен запрос.

Ответ отправил: Omickron (статус: 3-ий класс) Ответ отправлен: 29.06.2007, 10:52

Отвечает: Sattar Здравствуйте, LanK! Код в приложении взят с http:// swissdelphicenter.ch/ Приложение: function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean; var ps: IPersistStreamInit; ss: TStringStream; sa: IStream; s: string; begin ps := WebBrowser.Document as IPersistStreamInit; s := ''; ss := TStringStream.Create(s); try sa := TStreamAdapter.Create(ss, soReference) as IStream; Result := Succeeded(ps.Save(sa, True)); if Result then ACode.Add(ss.Datastring); finally ss.Free; end; end; procedure TForm1.Button2Click(Sender: TObject); begin WB_GetHTMLCode(Webbrowser1, Memo1.Lines); end; --------- Programming is like sex, one mistake and you have to support it for the rest of your life.

Ответ отправил: Sattar (статус: 3-ий класс) Ответ отправлен: 29.06.2007, 18:15

Вопрос № 93.343

Здравствуйте уважаемые эксперты. Подскажите пожалуйста как сохранить style (Курсив, жирный ...) шрифта в ini файле. Как изменить эти параметры не через диалоговое окно FontDialog.

Отправлен: 29.06.2007, 14:17 Вопрос задал: Левадный Тимур Русланович (статус: 1-ый класс) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, Левадный Тимур Русланович! ini-файл поддерживает стандартный набор данных. Поэтому вы можете создать свою процедуру для этого типа Разбить стиль на несколько переменных стандартного типа Для второго случая можно либо создать 4 булевских переменных, либо одну целого типа и использовать ее как массив битовых флагов. --------- Не узнаешь - не попробуешь.

Ответ отправил: Сухомлин Кирилл Владимирович (статус: Специалист) Ответ отправлен: 29.06.2007, 16:01 Оценка за ответ: 5 Комментарий оценки: Расскажите по подробнее как разбить стиль на 4 булевских перемынные.

Отвечает: ~Steep~ Здравствуйте, Левадный Тимур Русланович! Чтобы сохранять стиль шрифта - нужно сохранять каждый его параметр отдельно: Шрифт, Размер, Цвет и тд.. Не совсем понял вторую часть вопроса... Если изменять в самой программе пользователю - то соотвественно придется делать такой диалог самому.. Если вы програмно хотите изменить - то так же меняете каждый параметр например: font.color := ...; font.size := ..; и тд.. --------- Все всегда делается к Лучшему!

Ответ отправил: ~Steep~ (статус: 9-ый класс) Ответ отправлен: 29.06.2007, 16:03 Оценка за ответ: 4 Комментарий оценки: Шрифт, размер, цвет я изменил, а вот курсиы, жирный, подчёркнутый, зачёрктнутый нет.

Отвечает: Louken Здравствуйте, Левадный Тимур Русланович! Свойство Font.Style - это обычное множество и все действия над множествами применимы и к Font.Style. Чтобы сделать шрифт жирным, напишите такую строчку: Font.Style:=Font.Style+[fsBold]; Т.е. здесь к Font.Style добавляется флаг fsBold. Если написать: Font.Style:=[fsBold]; То шрифт будет жирным, но все остальные флаги (fsItalic, fsUnderline, fsStrikeOut) будут сняты со шрифта. Можно вместо fsBold написать: fsItalic, fsUnderline, fsStrikeOut. Можно и комбинировать: Font.Style:=Font.Style+[fsBold, fsItalic]; Чтобы сделать шрифт не жирным: Font.Style:=Font.Style-[fsBold]; Предлагаю Вам две процедуры для сохранения и загрузки параметров шрифта из ini файла (в приложении). Чтобы их использовать: LoadFont(ExtractFilePath(Application.ExeName)+'Config.ini', Form1.Font); SaveFont(ExtractFilePath(Application.ExeName)+'Config.ini', Form1.Font); где первый параметр - имя файла в той же директории, что и программа. Удачи. Приложение: procedure SaveFont(const AFileName: TFileName; AFont: TFont); var r: TIniFile; begin r:=TIniFile.Create(AFileName); try r.WriteInteger('Font','Charset',AFont.Charset); r.WriteInteger('Font','Color',AFont.Color); r.WriteString('Font','Name',AFont.Name); r.WriteInteger('Font','Pitch',integer(AFont.Pitch)); r.WriteInteger('Font','Size',AFont.Size); r.WriteBool('Font','Style_Bold',fsBold in AFont.Style); r.WriteBool('Font','Style_Italic',fsItalic in AFont.Style); r.WriteBool('Font','Style_Underline',fsUnderline in AFont.Style); r.WriteBool('Font','Style_StrikeOut',fsStrikeOut in AFont.Style); finally r.Free; end; end; procedure LoadFont(const AFileName: TFileName; AFont: TFont); var r: TIniFile; begin r:=TIniFile.Create(AFileName); try AFont.Charset:=r.ReadInteger('Font','Charset',DEFAULT_CHARSET); AFont.Color:=r.ReadInteger('Font','Color',clBtnFace); AFont.Name:=r.ReadString('Font','Name','MS Sans Serif'); AFont.Pitch:=TFontPitch(r.ReadInteger('Font','Pitch',0)); AFont.Size:=r.ReadInteger('Font','Size',8); if r.ReadBool('Font','Style_Bold',false) then AFont.Style:=AFont.Style+[fsBold]; if r.ReadBool('Font','Style_Italic',false) then AFont.Style:=AFont.Style+[fsItalic]; if r.ReadBool('Font','Style_Underline',false) then AFont.Style:=AFont.Style+[fsUnderline]; if r.ReadBool('Font','Style_StrikeOut',false) then AFont.Style:=AFont.Style+[fsStrikeOut]; finally r.Free; end; end;

Ответ отправил: Louken (статус: 9-ый класс) Ответ отправлен: 29.06.2007, 20:45 Оценка за ответ: 5 Комментарий оценки: Большое спасибо (6 бы поставил :)

Вопрос № 93.349

Здравствуйте всем. Вопрос следующий: Есть ADSL-подключение к инету с динамическим IP. Иногда происходит разрыв соединения и, соответственно, меняется IP. Как программно узнать IP-адрес интернет-соединения? Это мне нужно для удаленного администрирования компа, на котором Инет с динамическим IP.

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

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, Idens! Вот несколько статей: http://delphiworld.narod.ru/base/get_own_ip.html http://delphiworld.narod.ru/base/get_own_ip2.html http://delphiworld.narod.ru/base/get_my_ip.html В чем вам будет проще разобраться, тот и используйте. --------- Не узнаешь - не попробуешь.

Ответ отправил: Сухомлин Кирилл Владимирович (статус: Специалист) Ответ отправлен: 29.06.2007, 15:57

Отвечает: Василенко Алексей Васильевич Здравствуйте, Idens! Ответ удален как неверный и помещен на форум Удаленные ответы для обсуждения Эксперт sir henry --------- Человек развивается только преодолевая трудности

Ответ отправил: Василенко Алексей Васильевич (статус: 2-ой класс) Ответ отправлен: 30.06.2007, 14:43

© 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