помогите плиз надо делать такое мне надо чтобы когда открывает какуюнибудь папку , то в программе отображались все файлы с этой папки списком, потом выделить любой файл и декодировать (из dat в txt) декодировщик у меня есть , но как подключить его к программе?
Всем привет. Подскажите плиз. Планируется разработка БД (кол-во записей может достигать нескольких десятков и сотен тысяч ). Какие компоненты или методы более стабильны(какие справятся с таким объемом) и которые вы используете ? ps. База будет локальная, т.е рядом с программой будет лежать файлик бд. )
почему я сворачиваю с трей(или как там это правильно называется?), а программа там не отображается? использовал CoolTrayIcon.
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
Спс, помогло, теперь вопрос вылазит 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 пропиши как же нету, а как там системные модули подключены в uses?
ну у каждого свои заскоки... Видимо ему необходимо! Вообще снифером проверь, возможно неправильно куки цепляются, потому сервак обрубает соединение