» Вопросы по Delphi

В других датабейсах есть пропертя LoginPrompt. Там должно быть что-то похожее

RostY
да ...у фиба датабейса UseLoginPromt....поставил фэлс и Connect=Falce....все ОК...логин и пасс забиваю со своей формы коннект с базой идет......вот теперь думаю как описать событие на некорректный пароль или логин.....

try pFIBDatabase1.Connected:=True;
except
MessageDlg('Неальо !!!', mtWarning, [mbYES,mbOK], 0);
...
end;

а книжки читать не пробовал ?

RostY

Цитата:

а книжки читать не пробовал ?

читаю книжки....статьи и пр.....но не успел пока много начитать и напробовать....., а я написал немного иначе:
except
ShowMessage('ля..ля..ля');
end;

Перед "ля" букву пропустил

RostY

Цитата:

Перед "ля" букву пропустил

да? какую?....

Я работаю с SQL Server 2000 из Windows Forms Application - Delphi 2005 for .Net

Такая ситуация: Соединение с БД установлено через SQLConnection. Теперь мне нужно из базы по простому запросу выбрать список и запихнуть его в ComboBox - ничего не получается. Запрос простейший:
Select Distinct city
From Customers

Помогите плиз :/

ЗЫ: Пробовал считывать из БД таблицу целиком и запихивать ее в DataGrid - все в порядке.

Markell


Цитата:

sl := TStringList.Create;

Select Distinct city // открыть запрос
From Customers

First; sl.Clear;
while not eof do begin
sl.Add (FieldByName('city').asString);
Next;
end;
Close; // закрыть запрос
end;

ComboBox.Items.Assign (sl);

sl.Free;

Так не пробовал?

PowerChute
Спасибо! Некоторые уточнения:
sl определил как string;
Но где взять в Windows Forms Application StringList?
А так же как определять First и Next?

var sl: TStringList;

First и Next - методы датасета

Markell
RostY прав. Я же тебе не весь код написал, а так выдержку небольшую.

Цитата:

Но где взять в Windows Forms Application StringList?

Unit
Classes

RostY
Я не просто так спрашиваю про этот TstringList. Он является инструментом VCL Forms Applications. А я работаю с Windows Forms Application - там нет такого!!! Как в такой ситуации быть?


Добавлено:
PowerChuteДа, спасибо, с TStringList понял.
Вот только все равно вопросы еще остаются:
Ведь нельзя же писать текст запроса прямо в тексте программы
в таком виде:

Select Distinct city // открыть запрос
From Customers

??? Система ругается и подчеркивает все слова красным. Тоже самое происходит и со словами First, Next, FieldByName, asString...

ЗЫ: Извиняюсь, если мои вопросы совсем ламерские, просто только начинаю разбираться с этим всем...

Markell

Цитата:

А я работаю с Windows Forms Application

Правильно делаешь. А запросы пиши в кавычках типа:

Код:
'Select Distinct city'#32+ // открыть запрос
'From Customers'

Я только все никак не пойму, что же делать со словами First, Next, FieldByName, asString?
Там где-то что-то надо добавить, чтобы они понимались?

Markell

Цитата:

Я только все никак не пойму, что же делать со словами First, Next, FieldByName, asString?

вы не шутите?!?!?

Так срочно всё бросить - и читать, читать, читать...

в двух словах - вы бросаете на форму Dataset -
и вот у него есть методы First Next ....
вам же Rosty об этом написал...

короче, если вам нужен рабочий пример - пишите мне в ПМ

SERGE_BLIZNUK
Папку \Demos\Db собрался выслать ?

Подскажите, пожалуйста!
как проверить, не зянят ли файл другим приложением на запись?
моя прога должна начинать обработку файла только после того, как он будет полностью сформирован и закрыт другой программой.
пробовал открывать через функцию FileOpen(FileName, fmShareExclusive) - не помогает. ( проверял так - открывал файл FARом по F4 и запускал свою прогу - все равно открывается без проблем. а должна подождать пока файл не освободится.

Цитата:

Папку \Demos\Db собрался выслать

8-))) ну, в принципе было бы неплохо... 8-))

ArtSnegirev
пиши:

Код: try
with TfileStream.Create('имя файла', fmOpenRead or fmShareExclusive) do
Free;
//свободен
except
//занят
end;

еще вопрос
как получить (обработать) в программе текст ошибки, генерируемой обработчиком исключений при появлении самого исключения. например, в Delphi при возникновении исключительной ситуации возникает окно с текстом, описывающем исключение. вот этот текст мне и нужно получить в программе.

vshersh
спасибо за подсказку. работает. к тому же выяснил, что редактор файлов в FARе не блокирует редактируемый файл. проверял, занимая файл WORDом

ArtSnegirev
RTFM Exception, Exception handling

try
// do something raise!
except
on E: Exception do
//E.Message - text of exception object
ShowMessage(E.Message);
end;

Подскажите плиз, как в Delphi 7 установить соединение PPPoE и контролировать его состояние?

Кто-то пользовался Ehlib 4.1 ?

у меня Incremental search не работает - получаю "List index out of bounds". В версии 3.6 все нормально. Кто-то встречался с такой ситуацией ?

Скажите плз, кто-нибудь знает, как можно в Windows Forms Application - Delphi 2005 for .Net обратиться к конкретной ячейке объекта DataTable для того, чтобы взять из нее ее значение и затем присвоить его какой-нибудь переменной?

Markell
Также как и в других Делфях - никак (ну практически). Это работа с базами данных. Там нет "столбцов с номером" там есть поле записи. Пожетому правильный ответ будет - составить SQL запрос, в котором выбрать нужное поле по условию. И во вторых запомни, что говорить ячейка в пятой строке также некорекно, так как строки в базе могут в перемешку и не совсем так как ты их видишь

(Delphi 7)
ActiveX+IndyTCPClient='Access violation'
Создаю ActivX форму, ложу на нее idTCPClient1.
Есть процедура:
Procedure StartClient;
Begin
try
ClientFrmMain.Client.Connect(10000);//***
ClientHandleThread := TClientHandleThread.Create(True);
ClientHandleThread.FreeOnTerminate:=True;
ClientHandleThread.Resume;
except
on E: Exception do MessageDlg ('Error while connecting:'+#13+E.Message, mtError, [mbOk], 0);
end;
end;
При вызове этой процедуры на на строке *** программа спотыкается и выдает сообщение 'Access violation at adress ******* in nodule ******'

Хотя если все перенести в обычный win application то все работает нормально.

ПОдскажите как обойти эту проблему.
Зарание огромное спасибо и поздравляю всех с дем защитника.

Schatz
Поставь перед строкой *** (сразу после try)

Код: Assert(Assigned(ClientFrmMain) and Assigned(ClientFrmMain.Client))

vshersh


Цитата:

Schatz
Поставь перед строкой *** (сразу после try)

Assert(Assigned(ClientFrmMain) and Assigned(ClientFrmMain.Client))


и попробуй еще раз

Сделал как ты сказал - ругается: 'Assertion failure (путь\имя проекта, номер строки) '

Schatz
Значит ты обращаешься к пустой переменной или не создан на форме Client.

От куда берется значение ClientFrmMain?

vshersh

TAlexZ_ClientSK = class(TActiveForm, IAlexZ_ClientSK)
Label1: TLabel;
Client: TIdTCPClient;
****
****
end;
***
***
var
ClientFrmMain: TAlexZ_ClientSK;
implementation
***