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

нет я человек

понимаешь я хочу чтобы прога загружала txt файл с нета и показывалась статистика выполнения (загрузка... загружен)
и чтобы то что находится в файле показывалось в программе

 

стукни в асю мне, и обьясни все подробно, напишу тебе прогу в 10 строчек... Бесплатно

 

чёта не могу найти как в delphi подключится к mysql базе, мот кто поможит?

 

http://www.interface.ru/home.asp?artId=4937

 

mysql

Для начала, если собираешся програмировать под Делфи то советую скачать сборник статтей ДелфиВорд. Там есть все. Но а если впдло качать то ставь на форму такую компоненту SimpleDataSet и юзай. Если не найдешь инфы или не будет получаться, то напиши и я брошу тебе маленький примерчик.

 

кинь пример , я так быстрее разберусь

 

mysql

http://slil.ru/25196619 - здесь исходники и все нужные библиотеки.
Компилировал под 7-мым Делфи.
Там для тебя важно лишь понять параметры СимплДатаСет для отображения базы данных и SQLQuery для запросов на удаление и добавления. В папке БД находиться база данных что используется, брось ее к остальным (если у тебя Денвер, то в D:\DENVER\usr\local\mysql4\data\mysql\ ).
И там используется доступ к базе МуСкула по логину root и с пустым паролем.

Если что-то будет не работать ии не понятно, то обращайся.

 

Как сделать скриншот отпределенной части экрана и сохранить его в файл не используя модуль Graphics и TBitMap соответственно?

 

Ну делфи по сравнению с пхп для меня ужас =) presidentua вот мой http://slil.ru/25199728, можишь сделать при нажатии на кнопку чтобы подключалось к базе, =) спс зарание

 

Получай, http://slil.ru/25201509. К исходникам бросишь библиотеки что я первый раз скидывал.

Работает, нормально подключается. Только я не делал обработку исключений (ну если указаны неверно параметры, или нету подключения). Что бы это контролировать надо использовать инструкцию try.

Дальше робота с МуСкулом зависит от того, что тебе надо. Если запрос СЕЛЕКТ, то используй - СИМПЛДАТАСЕТ.
Если что я на связи.

 

спасиб =) ща буду с запросами разбираться

 

чёта я тут натупил?

 

наверное так:

 

пишит Missing drivername property
мот в SimpleDataSet1.DataSet.RecordCount надо чтото другое вместо .RecordCount ?

 

Был занят немного, а теперь освободился.

Держи твой код:

Code:

procedure TForm2.Button2Click(Sender: TObject);
begin
SimpleDataSet1.DataSet.CommandText:='select * from userlist';// where firstName=:Edit3.Text and lastName=:Edit6.Text';
SimpleDataSet1.DataSet.Active:=true;
SimpleDataSet1.Active:=true;

if DataSource1.DataSet.RecordCount = 1  then
begin
      ShowMessage('Такого Логина нету');
      Edit1.Clear;
      Edit2.Clear;
end; 
end;

Только зопрос свой вставь.

 

на SQLQuery1.SQL.CommaText:='select * from userlist where firstName=:Edit1.Text and lastName=:Edit2.Text';
пишит No value for parameter Edit1.Text

 

ыы) вместо

Code:

firstName=:Edit1.Text

надо вообщето

Code:

firstName:=Edit1.Text

=: поменяй на :=

 

тоже самое мот вообще == надо? =)

 

Во как надо

Code:

SQLQuery1.SQL.CommaText:='select * from userlist where firstName' + Edit1.Text + 'and lastName' + Edit2.Text;

 

а там mysql пишит почитайте мануал =)