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

где скачать разные иконки для делфи?

 

www.*iconfinder.*com/*free_icons

 

помогите плиз надо делать такое
мне надо чтобы когда открывает какуюнибудь папку , то в программе отображались все файлы с этой папки списком, потом выделить любой файл и декодировать (из dat в txt) декодировщик у меня есть , но как подключить его к программе?

 

Всем привет. Подскажите плиз. Планируется разработка БД (кол-во записей может достигать нескольких десятков и сотен тысяч ). Какие компоненты или методы более стабильны(какие справятся с таким объемом) и которые вы используете ?

ps. База будет локальная, т.е рядом с программой будет лежать файлик бд. )

 

При таком, относительно не большом объёме базы, любой компонент сгодится.

 

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

 

AGIMgal, в свойствах компонента отображение в трее в true поставь

 

Code:

co:=copy(co,pos('PHPSESSID=',co),42);

cap:=TIdURI.Create('serat.ru');
cap.Host:='http://serat.ru';
cap.Path:='/';
idhttp1.CookieManager.AddCookie(co, cap);

ругается на

Code:

idhttp1.CookieManager.AddCookie(co, cap)

[DCC Error] Unit1.pas(65): E2066 Missing operator or semicolon

 

просто так попробуй
idhttp1.CookieManager.AddCookie(co, 'serat.ru')

 

Спс, помогло,
теперь вопрос
вылазит connection closed gracefully, гуглил не помогло,
код

Code:

if checkbox1.Checked=false then begin
I:=0;
PostData:= TStringList.Create;
PostData.Add('n=+'+n.Text+'&ok=1&okkk.x=74&okkk.y=20');
while i<kolvo.Value do begin
IdHTTP1.Post('http://www.x.com/',PostData);
res:=IdHTTP1.ResponseText;
I:=i+1;
end;
if res='HTTP/1.1 200 OK' then
memo1.Lines.Add(inttostr(I)+' !') else memo1.Lines.Add(inttostr(I)+' ошибка!');

end;

 

Помогите плиз! Нужно сделать задачу на паскаль графическим методом, т.е. чтобы при решении задачи выдавало картинку. Сделайте плиз такую задачу, чтобы например вышел дом, машина, или еще какойто обьект! Буду очень благодарен, в долгу не останусь. Параметры любые можно вводить, ширину, длину и тп.

 

Code:

procedure Treger.Button1Click(Sender: TObject);

var
balance:string;
begin
 balance:=idhttp1.Get('http://antigate.com/res.php?key='+editKey.Text+'&action=getbalance');
 editBalance.Caption:=balance;
end;
end.

как сделать так, что бы при нажатие кноаки если edit1.text пустое выходило сообщение а если введен ключ то продолжало работать дальше?

 

Code:

procedure Treger.Button1Click(Sender: TObject);
var
balance:string;
begin
if editKey.Text<>'' then begin
 balance:=idhttp1.Get('http://antigate.com/res.php?key='+editKey.Text+'&action=getbalance');
 editBalance.Caption:=balance;
end else messagebox(0,'WHERE_THE_KEY_DUDE?!','NO_KEY!',0);
end;
end.

Где Content-Length??

 

может знатокам вопрос покажется и немного глупым,но все таки)
есть база данных MS access такого типа:
ID Password value
1234 12563 3452
3425 41235 3425

Вопрос,как мне сделать обход по всем ячейкам в компоненте типа TADOTable??
ибо Table.Fields.FieldName проходит только по верхней строке(в моем случае это ID,Password,Value) а в глубину не заходит=\
заранее спасибо.

 

Глупый вопрос..

Имеется консольное приложение на Дельфи. Есть модуль. Как из модуля получить доступ к переменным(глобальным) объявленным в основой программе?

 

uses unit2
.....
.....
var
uses unit 1;

 

Эммм какой юнит?)
Что мне указывать в модуле то? В консольном приложении нету pas файла..

 

так блеать создай и подключи к проекту и в uses пропиши
как же нету, а как там системные модули подключены в uses?

 

Это тут заачем??

 

ну у каждого свои заскоки... Видимо ему необходимо!
Вообще снифером проверь, возможно неправильно куки цепляются, потому сервак обрубает соединение