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

Выпуск № 482
от 24.05.2006, 19:35

Вопрос № 43.509

Можно ли прямо с сайта отправить деньги на WebMoney? Если да, то как сделать сайт (в Delphi), который бы делал это, если нет, то как еще можно автоматически (по желанию пользователя) переводить деньги на счёт в WebMoney?

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

Отвечает: Samum Здравствуйте, Томша Павел! Да, можно. Для этого разработаны HTTPS и XML интерфейсы. Делать сайт на Delphi - это мазохизм. Если хотите использовать систему WebMoney у себя на сайте - пишите движок на perl или php. На сайте разработчика (http://webmoney.ru/pfdevelopers.shtml) можно также найти большое количество примеров. --------- Если бы программистам за их ошибки отрывали части тела, то в конце концов им пришлось бы использовать голову!

Ответ отправил: Samum (статус: Специалист) Ответ отправлен: 18.05.2006, 19:39 Оценка за ответ: 5

Отвечает: Устинов Сергей Евгеньевич Здравствуйте, Томша Павел! Почитай вот это - http://www.webmoney.ru/pfdevelfile6.shtml Или вот это: http://www.webmoney.ru/pfbusiness.shtml https://merchant.webmoney.ru Смысл таков - нажиматется ссылка и у клиента WebMoney Keepper спрашивает: "Перевести деньги на кошелек №............?" --------- Ответы на все вопросы - на сайте www.ya.ru :)

Ответ отправил: Устинов Сергей Евгеньевич (статус: 9-ый класс) Ответ отправлен: 18.05.2006, 20:03 Оценка за ответ: 5

Вопрос № 43.527

Здравствуйте уважаемые эксперты!!! Как картинку в ехе-ник засунуть? В принципе я понял, что надо прописать в txt файле что-то,а вот дальше проблемы.Не поняно, где,что компить...... Спасибо!!!

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

Отвечает: chikanok Здравствуйте, Lamer_Brother! Есть несколько вариантов! 1-ый) В любую компоненту с поддержкой графики(Tbitbtn,Timage,Timages,или имеющего свойства Bitmap или Glyph) загрузить в ваш рисунок, то он попадёт в exe-файл!(можете убедиться посмотрев файл *.dfm вашей формы). 2-ой) Создать константу в которой написать шестнадцатиричный код (HeX) вашей картинки!И потом грузить с неё! Для этого можно пойти разными путями: а)Воспользоваться первым способом, и скопировать данные из *.dfm файла,только Delphi помойку ко всем картинкам в начало добавляет 36050000 -это надо будет убрать! б)Переписать в ручную!!! :))) в)Написать простенькое приложение которое будет побитно читать файл с картинкой и записывать в файл! 3-ий) Создать *.Res -файл . Для этого нужно выполнить три шага: 1)Создат файл *.dat примерно темже методом как и во 2-ом варианте пункте (в).И файл *.RC 2)Откомпилировать его с помощью brcc32 идёт вместе с делфи! 3)Подключить полученный *.res -файл к проекту! Так как не разу не делал так,то немогу сказать как после этого обрашаться к картинке.В приложении пример этого метода, только вместо картинки строки! А вообще способов много!!! Приложение: //Программа для создания вайла *.dat program MakeData; type TStrItem = string[39]; { 39 символов + байт длины -> 40 байтов } TDataArray = array[0..7, 0..24] of TStrItem; const Data: TDataArray = ( ('..', ...., '..'), { 25 строк на строку } ... { 8 таких строк } ('..', ...., '..')); { 25 строк на строку } var F: file of TDataArray; begin Assign(F, 'data.dat'); Rewrite(F); Write(F, Data); Close(F); end. //Содержание файла *.RC DATAARRAY RCDATA "data.dat" //Запустить cmd зайти в папку с файлами *.rc *.dat //и выполнить команду brcc data.rc //Пример работы с приложения с получившимся файлом в секции interface модуля } type TStrItem = string[39]; { 39 символов + байт длины -> 40 байтов } TDataArray = array[0..7, 0..24] of TStrItem; PDataArray = ^TDataArray; const pData: PDataArray = nil; { в Delphi 2.0 используем Var } implementation {$R DATA.RES} procedure LoadDataResource; var dHandle: THandle; begin { pData := Nil; если pData - Var } dHandle := FindResource(hInstance, 'DATAARRAY', RT_RCDATA); if dHandle <> 0 then begin dhandle := LoadResource(hInstance, dHandle); if dHandle <> 0 then pData := LockResource(dHandle); end; if pData = nil then { неудача, получаем сообщение об ошибке с помощью WinProcs.MessageBox, без помощи VCL, поскольку здесь код выполняется как часть инициализации программы и VCL возможно еще не инициализирован! } end; initialization LoadDataResource; end. --------- Главное желание,а там разберёмся!

Ответ отправил: chikanok (статус: 1-ый класс) Ответ отправлен: 19.05.2006, 02:09

Вопрос № 43.554

Здравствуйте, уважаемые эксперты! Подскажите, пожалуйста, как в txt-файле: 1.Посчитать общее кол-во символов. 2.Посчитать число букв 3.Число цифр 4.Число остальных символов. Заранее благодарен!

Отправлен: 19.05.2006, 10:34 Вопрос задал: Андрющенко Вячеслав Васильевич (статус: 1-ый класс) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Gh0stik Здравствуйте, Андрющенко Вячеслав Васильевич! Смотрите в приложении надеюсь помог. Удачи!!! Приложение: procedure TForm1.Button3Click(Sender: TObject); const chs=['0'..'9']; bk=['a'..'z','A'..'Z','а'..'я','А'..'Я']; var f:textfile; st:string; ost,all,buk,chisl,i:integer; begin AssignFile(f,'txt.txt'); reset(f); ost:=0; //все остальные all:=0; //все символы buk:=0; //только буквы chisl:=0; //только цифры while not eof(f) do begin readln(f,st); all:=all+length(st); For i:=1 to length(st) do begin if st[i] in chs then inc(chisl); if st[i] in bk then inc(buk); end; end; ost:=all-(buk+chisl); CloseFile(f); ShowMessage(inttostr(all)+#13+inttostr(chisl)+#13+inttostr(buk)+#13+inttostr(ost));//выводим результаты end; --------- Мыслю - значит существую (Декарт)

Ответ отправил: Gh0stik (статус: 8-ой класс) Ответ отправлен: 19.05.2006, 11:07

Отвечает: chikanok Здравствуйте, Андрющенко Вячеслав Васильевич! Приложении пример! Незабудьте добавить uses classes,если это консольное приложени!(но в консольках русские буквы несчитаются,На моей ОС) var List:Tstringlist; Успехов! Надеюсь я вам помог! Приложение: list:=Tstringlist.Create; list.LoadFromFile(path); fc:=length(list.Text); for i:=0 to fc do begin tmp:=list.Text[i]; case tmp of 'Я'..'а': sc:=sc+1;//Русские буквы 'Z'..'a': sc:=sc+1;//Инглиш '0'..'9': nc:=nc+1;//ЧИСЛА else oc:=oc+1;//Остальные end; end; --------- Главное желание,а там разберёмся!

Ответ отправил: chikanok (статус: 1-ый класс) Ответ отправлен: 19.05.2006, 11:46

Отвечает: sir henry Здравствуйте, Андрющенко Вячеслав Васильевич! Вам необходимо определить группы символов (с помощью SET OF), тех, что Вы хотите определить отдельно друг от друна, и с помощью IN определять, входит ли очередной символ прочитаный из файла в ту или иную группу. Файл откроете как Fail of Char. По количеству групп создадите нужное количество переменных типа Integer, и если символ входит в ту или иную группу - днлаете инкремент соответвующей переменной.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 19.05.2006, 12:27

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, Андрющенко Вячеслав Васильевич! Общее кол-во символов можно посмотреть просто по размеру файла. Однако, есть символы перевода строки (по 2 в конце каждой) Я думаю, вам их учитывать не надо. Остальные символы можно посчитать := все - буквы - цифры. Прога в приложение - не окончательное решение, "доработаете напильничком" сами =) Приложение: uses: SysUtils; var f: textfile; c: char; chars_num, letters_num, digits_num: integer; const Letters = ['а'..'я', 'А'..'Я', 'a'..'z', 'A'..'Z']; Digits = ['0'..'9']; begin AssignFile(f, <filename>); Reset(f); chars_num := 0; letters_num := 0; digits_num := 0; while not eof(f) do begin Read(f, c); inc(chars_num); if c in Letters then inc(letters_num); if c in Digits then inc(letters_num); end; CloseFile(f); end;

Ответ отправил: Сухомлин Кирилл Владимирович (статус: 5-ый класс) Ответ отправлен: 19.05.2006, 12:53

Вопрос № 43.556

Доброе время суток! Подскажите пожалуйста как сделать программу Радар она должна показівать как движется стрелка на радаре

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

Отвечает: chikanok Здравствуйте, Sexy! В приложении приведён пример,рисующий круг и по таймеру рисующий стрелку! Частота стрелки зависит от переменной t и формулы curangle:=t/100*(2*pi) , если увеличивать t в if t<100 then inc(t) else t:=0, то и в формуле надо заменить 100 на этоже число! Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Timer1: TTimer; procedure FormPaint(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure Mydraw(color:Tcolor); private { Private declarations } public cenX:integer; cenY:integer; radius:integer; t:integer; curangle:real; { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormPaint(Sender: TObject); begin with form1.Canvas do begin pen.Color:=clblack; pen.Width:=4; brush.Color:=clGreen; ellipse(20,20,20+2*radius,20+2*radius); end; end; procedure Tform1.Mydraw(color:Tcolor); begin with form1.Canvas do begin pen.Color:=color; moveTo(cenX,cenY); lineTo(cenX+Round(radius*sin(curangle)),cenY-round(radius*cos(curangle))); end; end; procedure TForm1.FormCreate(Sender: TObject); begin ceny:=form1.ClientHeight div 2; CenX:=CenY; radius:=CenX-20; t:=0; end; procedure TForm1.Timer1Timer(Sender: TObject); begin if t<100 then inc(t) else t:=0; form1.Canvas.Pen.Width:=3; Form1.Paint; Mydraw(clGreen);//Clear-тоесть предидущая стрелка закрашивается цветом дисплея! //Очистку можно так-же производить вызвав //процедуру TForm1.Paint; точнее перерисовку дисплея! curangle:=t/100*(2*pi); Mydraw(clLime); end; end. --------- Главное желание,а там разберёмся!

Ответ отправил: chikanok (статус: 1-ый класс) Ответ отправлен: 19.05.2006, 12:45

Отвечает: Timoshin A.B. Здравствуйте, Sexy! В добавление могу только сказать, что если хочешь сделать как на настоящем радаре затухающий цвет, необходимо перерисовывать не только предыдущюу стрелку, но и N с постепенным переходом цвета, от цвета стрелки, до цвета фона. для этого перепишем процедуру OnTimer Приложение: для i от 1 до N начало t:=t-i; рисуем линию(цвета(i)); t:=t+i; i:=i+1; конец --------- Если кого-то коробит моя манера общения, я хотел бы получать ОС.

Ответ отправил: Timoshin A.B. (статус: Студент) Ответ отправлен: 19.05.2006, 22:34

Вопрос № 43.557

Здраствуйте,эксперты! Если вы помните,я не так давно задавал вопрос по главной функции C++ void main (int argc, char* argv[]){...} Параметры argc и argv передаются функции(в c++,а В Delphi процедура) GlutInit, в делфи она имеет формат : procedure glutInit(argcp: PInteger; argv: PPChar); stdcall; external GLUTDLL; типы PPCHAR:^Pchar; Ну и Pinteger:^integer; С Pinteger всё нормально, а вот с PPchar проблема,компилятор всё время материться на эту функцию! Как cmdLine:PAnsichar типа преобразовать к PPchar??? Приложение: /*Пробовал вот так, но выкидывает ошибку:incompatible types:System.Pansichar and Glut.PansiChar . */ program Project2; {$APPTYPE CONSOLE} uses SysUtils, windows, opengl, glut, system; var p:pointer; s:ppchar; begin s:=@cmdline; p:=@paramcount; glutInit(p,s); ..............................

Отправлен: 19.05.2006, 10:59 Вопрос задал: chikanok (статус: 1-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: sir henry Здравствуйте, chikanok! PAnsiChar и PChar - это одно и тоже. Следовательно Вам нужно сделать указатель на PAnsiChar.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 19.05.2006, 12:31 Оценка за ответ: 5 Комментарий оценки: Выручаете не в первый раз!!! Огромное спасибо!

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, chikanok! 1) массив и указатель, особенно в си - это практически одно и то же. Поэтому мы заведем массив указателей на PChar, а потом возьмем указатель на него и получим то, что требуется. 2) cmdline у вас строка (т.е. массив символов), а PPChar - массив строк (т.е. двумерный массив символов) Поэтому просто присвоить их нельзя, т.к. это разные параметры. Не знаю, как вам быть с cmdline - могу привести свое решение (см. приложение). Я думаю, вам несложно будет его интегрировать в свою программу. Если же отвечать прямо на вопрос - как преобразовать PAnsiChar к PPChar, то я вам скажу, что надо парсить строку cmdline, разбивать на отдельные строки (врод бы, разделитель - только пробел... по-моему, лучше воспользоваться тем, что система нам сама предоставляет уже разбитую строку. 2Sir Henry: Зачем тогда для многих API-функций, получающих в качестве параметра PChar, например, findwindow, сделаны варианты: findwindowA() и findwindowW(), получающие в качестве аналогичного параметра PAnsiChar & PWideChar? Хотя, конечно, в данном случае в cmdline будут только англ. символы, и это практически одно и то же. Приложение: var cmd: array of PChar; pp: PPChar; ... SetLength(cmd, ParamCount); for j := 0 to ParamCount-1 do begin cmd[j] := PChar(ParamStr(j)); end; pp := @cmd; { Наверное, можно просто сразу передавать @cmd в качестве параметра }

Ответ отправил: Сухомлин Кирилл Владимирович (статус: 5-ый класс) Ответ отправлен: 19.05.2006, 13:26 Оценка за ответ: 5

Вопрос № 43.558

Здравствуйте, уважаемые эксперты! Подскажите, пожалуйста, как в строке, содержащей число, выполнить разрядное форматирование тысяч? Т.е. есть строка "2345678". После преобразования получаем "2 345 678". Через каждые 3 символа, начиная с конца, вставить пробел. Заранее благодарен!

Отправлен: 19.05.2006, 11:01 Вопрос задал: Андрющенко Вячеслав Васильевич (статус: 1-ый класс) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Gh0stik Здравствуйте, Андрющенко Вячеслав Васильевич! Вот после нескольких попыток получился такой код. Смотрите приложение: Удачи!!! Приложение: procedure TForm1.Button4Click(Sender: TObject); var s,sn:string; i,n,xi:integer; begin s:='1234567891011'; n:=length(s); xi:=0; for i:=n downto 1 do begin sn:=s[i]+sn; inc(xi); if (xi mod 3)=0 then begin sn:=' '+sn;xi:=0;end end; ShowMessage(sn); end; --------- Мыслю - значит существую (Декарт)

Ответ отправил: Gh0stik (статус: 8-ой класс) Ответ отправлен: 19.05.2006, 11:24

Отвечает: Проходящий Мимо Здравствуйте, Андрющенко Вячеслав Васильевич! Если строка состоит только с цифр, можно так: st:=FloatToStrF(StrToFloat('2345678'), ffNumber, 15, 0); --------- Carpe diem!

Ответ отправил: Проходящий Мимо (статус: 3-ий класс) Ответ отправлен: 19.05.2006, 11:32

Отвечает: Kazakh Здравствуйте, Андрющенко Вячеслав Васильевич! Можно так procedure TForm1.Button1Click(Sender: TObject); var chislo, tmp:string; i:integer; begin chislo:=Inttostr(234567854545454554); tmp:=''; for i:=length(chislo) downto 1 do begin tmp:=chislo[i]+tmp; if i mod 3 = 0 then tmp:=' '+tmp; end; chislo:=tmp; ShowMessage(chislo); end; на так красивее procedure TForm1.Button2Click(Sender: TObject); var d:Extended; chislo:string; begin d:=234567854343443348.6665656; chislo:=format('%20.8n',[d]); ShowMessage(chislo); end; --------- Если собеседник затрудняется ответить, значит, вопрос поставлен правильно.

Ответ отправил: Kazakh (статус: 8-ой класс) Ответ отправлен: 19.05.2006, 13:49

Вопрос № 43.594

Здравствуйте уважаемые эксперты. Такая вот проблема. Загружаю явно DLL и присваиваю некой переменной значение, возвращаемое функцией из DLL. Как только выполняется FreeLibrary, значение этой переменной теряется. Но пока DLL в памяти всё хорошо. Уменя вопрос:"Это так задумано, или я чего не так делаю."

Отправлен: 19.05.2006, 16:41 Вопрос задал: Popcov (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: mvp Здравствуйте, Popcov! "Чего то вы не так делаете" :) Значение может потеряться, если вы получали из dll указатель на структуру(класс, ...). А если вы возвратили какое-нибудь число, то оно не потеряется. Проблемы могут быть, если возвращать String. --------- Моя совесть чиста - не бывшая в употреблении

Ответ отправил: mvp (статус: Студент) Ответ отправлен: 19.05.2006, 17:22 Оценка за ответ: 5

Отвечает: sir henry Здравствуйте, Popcov! 100% Вы что-то не так делаете, но без кода этого понять невозможно. Приведу пример: var i: integer; Begin i:=FinctionIntoDll(); End; Переменная i - это область памяти, котороая определена для Вашей программы. Чтобы Вы ни делали с библиотекой - открывали, закрывали - переменную Вы никоем образом не трогаете. Поэтому пожалуйста приведите код.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 20.05.2006, 13:46 Оценка за ответ: 4

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.32 от 03.05.2006