Всем здравствуйте! Есть пару вопросов, нуждаюсь в помощи: вообщем замучался думать и гадать как сделать так, что б при нажатии на кнопку пользователь переходил на форму оплаты вебмани, и сумма была бы 300 рублей, если сумма <300, или >300, возникала б надпись "блалаллла" и соответственно невозможность выполнить оплату пробывал, через html-форму, т.е. , где http://mysite.ru - html-форма, но не знаю как реализовать в ее коде условие что не больше, неменьше 300 р Вообщем прошу ваших мнений, намеков, предложений. Заранее спасибо.
ALeXX&7, вы никак это сделаете, точнее сделаете - но будет бесполезным, почему? Потому что грамотный человек может подсмотреть какие пакеты программа шлет (это ведь пакеты на ВМ сервер (вм мерчант если не ошибаюсь)), а в пакет будет входить число 300 -> соответственно можно подменить это число и послать пакет но уже с другим числом (т.е. не с 300). Если вы все еще хотите такое реализовать то объясняю: 1. Смотрите как прикрутить кошель к ВМ мерчанту (ну и естественно прикручиваете). 2. Как прикрутили кошель - берем в руки сниффер и смотрим какие отправляются на url: https://merchant.webmoney.ru/lmi/SignedLoginFormNewWC.asp (это страница оплаты) 3. Как узнали пакет отправляем его из своей программы 3.1 Отправление делается как правило с помощью библиотеки winsock. (TCP, примеры вы можете найти на просторах сети) 3.2 Описание по winsock хорошо описывается в книжка М. Фленова ("delphi в шутку и в серьез" вроде как в этой книге хорошо описан winsock) 4. Как отправили - парсим каптчу и выводим на форму (в компонент TImage) 5. Далее нажимаем кнопку "Далее" (что на странице мерчанта) и снова узнаем какие пакетные данные отправляются и куда (и естественно как узнали - пишем в delphi чтобы отправлялись эти данные пакета). И так проделываем операции до тех пор, пока деньги не дойдут до вм кошеля. В двух словах: Смотрим пакеты которые передаются на сервер WM, и эмулируем эти пакеты на программном ЯП
Всем привет. Может кто-нибудь следующий код переписать под паскаль, а то я в яве совсем не шарю, заранее спасибо. Code: package ru.spiral; public class Spiral { public static int[] init(int length) { int[] mass = new int[length]; for (int i = 0; i < mass.length; i++) { mass[i] = i; } return mass; } public static void print(int[][] spiral) { for (int i = 0; i < spiral.length; i++) { for (int j = 0; j < spiral[0].length; j++) { System.out.print(spiral[i][j] + "\t"); } System.out.println(); } } public static int oneRound(int[] mass, int[][] res, int l, int s, int k) { /* Готовим 1-ю строку */ for (int j = s; j < l - s - 1; j++) { res[s][j] = mass[k]; k++; } /* Готовим правый столбец */ for (int j = s; j < l - s - 1; j++) { res[j][l-1-s] = mass[k]; k++; } /* Готовим последнюю строку */ for (int j = l - 1 - s; j > s; j--) { res[l-1-s][j] = mass[k]; k++; } /* Готовим левый столбец */ for (int j = l - 1 - s; j > s; j--) { res[j][s] = mass[k]; k++; } return k; } public static void main(String[] args) { int[] mass = Spiral.init(100); int l = (int)Math.sqrt(mass.length); int[][] res = new int[l][l]; int k = 0; int shift = 0; while (l - 2 * shift > 0) { k = Spiral.oneRound(mass, res, l, shift, k); shift++; } if ((l % 2) != 0) { shift --; res[shift][shift] = mass[k]; } Spiral.print(res); } }
спасибо за совет... буду дальше пытаться... Есть ещё вопрос как реализовать следующее: есть прога, как можно осуществить чтоб данные в проге обновлялись, только у тех, кто произвел оплату?
Как через post в на MSPX сделать клик? на php,html без проблем бы вышло. PHP: <input name="ctl06$CompositeNumberTextBox" type="text" id="ctl06_CompositeNumberTextBox" style="display: none;" /> </div> <div id="ctl06_divTerms" class="terms" style="display:none;"> <div class="check"> <input id="ctl06_AgreementCheck" type="checkbox" name="ctl06$AgreementCheck" checked="checked" /> </div> <div class="acceptTerms">Установите флажок, чтобы подтвердить свое согласие с <a href="http://www.microsoft.com/info/cpyright.mspx" target="_blank" class="orange">условиями использования.</a></div> </div> <div id="ctl06_btnSubmit" class="btnSubmit" onClick="JavaScript:if(DCSext.wtNavigation != null){DCSext.wtNavigation=null;};"> <div class="globalButtonLeft"></div> <div class="globalButton"><a id="ctl06_SendButton" title="Отправить" class="btnSubmitC" href="javascript:WebForm_DoPostBackWithOptions(new WebForm_PostBackOptions("ctl06$SendButton", "", true, "", "", false, true))">Отправить</a></div> <div class="globalButtonRight"></div></div>
delphi & visio Подскажите пожалуйста ссылки на примеры работы с визио из делфи. добавить элементы, установить связи. и произвести обратную операцию, преобразовать документ в структуру данных.
в мемо несколько строк вида: Потом делаю: ShowMessage(form1.mmo1.Lines[3]); и он выводит 0 в чем проблема
Вот в этом и косяк, тогда делай так canvas.Ellipse(Round(400+40*(x-R)),Round(400+40*(y-R)),Round(400+40*(x+R)),Round(400+40*(y+R)));
Помогите авторизоваться на сайте: h on-void.ru Всего три поля login,pass,sumbit Отправляю POST запрос и тишина... даже куки пробовал сохранять все равно никак. Фиг знает где ошибка. Вот сама авторизация Code: LoginInfo := TStringList.Create; Response := TStringList.Create; try LoginInfo.Add('login=login'); LoginInfo.Add('pass=pass'); LoginInfo.Add('sumbit=Login'); Response.Text := IdHTTP1.Post('http://www.hon-void.ru/?auth',LoginInfo); if Pos('logout',Response.Text)>0 then memo2.Lines.Add('true)') else memo2.Lines.Add('false') finally LoginInfo.Free; Все разобрался. Неправильное название поля отправлял.
где скачать норм инди? а то скачал штук 5, и не одна нормально не становится. все делаю по инструкции
НА офф сайте качаешь сурсы, компилишь - ставишь. Компилим там: -System -Protocols -Core -SuperCore Ставим так: -Core -Protocols P.S. Это не технология установки, а то как поставил я.
помогите прикрутить вывод дня недели PHP: Program data_; type mes= (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov, dec); day=1..31; year=1900..2010; var d : day; m : mеs; g : year; n : 1..12; BEGIN Write(‘введите дату D,N,G’); readln(d,n.g); Case n of 1:m:=jan; 2:m:=feb; 3:m:=mar; 4:m:=apr; 5:m:=may; 6:m:=jun; 7:m:=jul; 8:m:=aug; 9:m:=sep; 10:m:=oct; 11:m:=nov; 12:m:=dec; end; Case m of Jan, mar, may, jul, aug, oct: If d=31 then begin d:=1; m:=succ(m) end else inc(d); apr, jun, sep, nov: f d=30 then begin d:=1; m:=succ(m) end else inc(d); dec: If d=31 then begin d:=1; m:=jan; inc(g) end else inc(d); feb: if ((d=28) and (not((g mod 400=0) or (g mod 4=0) and (g mod 100<>0))) or (d=29) then begin d:=1; m:=mar; end else inc(d); end; {case} writeln(‘дата следующего дня: ‘); write(d:2); Case m of jan : write(‘января’); feb : write(‘февраля’); mar : write(‘марта’); apr : write(‘апреля’); may : write(‘мая’); jun :write(‘июня’); ju1 : wгite( ‘июля‘ ) ; aug : wгitе('августа' ) ; sep :write('сентября'); oct : write('октября'); nov : write('ноября'); dec : write('декабря'); end; write(g:5, ' года') END.
MaTpOc, вот основная функция, полученная из твоей программы: PHP: type mes= (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov, dec); day=1..31; year=1900..2010; function Data_(D_: day; N_: Integer; G_: year): String; var d : day; m : mes; g : year; n : 1..12; begin d := D_; n := N_; g := G_; Case n of 1:m:=jan; 2:m:=feb; 3:m:=mar; 4:m:=apr; 5:m:=may; 6:m:=jun; 7:m:=jul; 8:m:=aug; 9:m:=sep; 10:m:=oct; 11:m:=nov; 12:m:=dec; end; Case m of Jan, mar, may, jul, aug, oct: If d=31 then begin d:=1; m:=succ(m) end else inc(d); apr, jun, sep, nov: if d=30 then begin d:=1; m:=succ(m) end else inc(d); dec: If d=31 then begin d:=1; m:=jan; inc(g) end else inc(d); feb: if ((d=28) and (not((g mod 400=0) or (g mod 4=0) and (g mod 100<>0))) or (d=29)) then begin d:=1; m:=mar; end else inc(d); end; Result := 'дата следующего дня:' + #13#10; Result := Result + IntToStr(d); Case m of jan : Result := Result + ' января'; feb : Result := Result + ' февраля'; mar : Result := Result + ' марта'; apr : Result := Result + ' апреля'; may : Result := Result + ' мая'; jun : Result := Result + ' июня'; jul : Result := Result + ' июля'; aug : Result := Result + ' августа'; sep : Result := Result + ' сентября'; oct : Result := Result + ' октября'; nov : Result := Result + ' ноября'; dec : Result := Result + ' декабря'; end; Result := Result + ' ' + IntToStr(g) + ' года'; end; Пример вызова в программе: PHP: MessageBox(Handle, PChar(Data_(31, 12, 2010)), PChar('Message'), MB_OK + MB_ICONINFORMATION); Хоть работает правильно, но оформлено плохо, так что если хочешь, - перепиши.
Здравствуйте, может быть кто-нибудь подскажет как объеденить два аудио-файла(мп3\wav) в один последовательный файл. Спасибо, надеюсь доходчиво объяснил проблему
Обязательно реализовать на Delphi? Может Nero или что - то в этом роде? И что ты вообще представляешь под словом "объеденить", одновременную работу?
