Код написать не могу, т.к с БД не особо работал.. Cмотришь в DBGrid какая строка выделена, и уменьшаешь значение какой либо ячейки на значение указанное в Edit'e
Подскажите как можно через idFtp загрузить текстовый (хтмл, пхп) файл в stringlist не сохраняя его на диск?
Code: ..................................... var stream:TMemoryStream; begin ..................................... stream:=TMemoryStream.Create; idftp1.Get('Disk6/TEMP/dfg.jpg', stream); StringList.LoadFromStream(stream); stream.Free; .....................................
Code: S:String; begin S:=ADOTable1.FieldByName('Количество').value-1; ADOTable1.Edit; DBEdit1.Text:=S; ADOTable1.Post; Решил свою проблему! Возникла другая! Надо выделенную строку в DBGrid е перенести на другую таблицу! со всеми записями! Заранее Спасибо за помощь! з.ы. Пожалуйста помогите с кодом! После Армейки тяжеловато как то даётся кодинг
Не получается отправить анонимное письмо? - Кому,От кого в чем межет быть проблема? PHP: procedure TForm1.Button1Click(Sender: TObject); var eml,s,m: string; begin with IdSMTP1 do begin IdSMTP1.Host:= LabeledEdit2.Text; IdSMTP1.Port:= strtoint (LabeledEdit1.Text); //IdSMTP1.Connect; end; with IdMessage1 do begin try IdMessage1.From.Address:= edit2.Text; IdMessage1.Recipients.EMailAddresses:= edit1.Text; IdMessage1.Subject:= edit3.Text; IdMessage1.Body.Text:=(memo1.Text); IdSMTP1.Connect (10000); IdSMTP1.Send(IdMessage1); except showmessage ('error+ IdMessage1') end; end; end; end.
Где можно скачать именно компилятор Delphi (не Среду разработки) то есть есть исходник, исправить что надо могу ручками. Скачать целиком среду разработки не могу - посему и надо только компилятор. думаю весит меньше
К сожалению под рукой делфи нету , вот держи на С++ я думаю сможешь перевест,если че не поймешь пиши помогу Code: TIdMessage* M = new TIdMessage(Form1); M->ContentType = "text/plain"; M->CharSet = "windows-1251"; M->Body->Clear(); M->Body->Add("Привет"); M->From->Text = "[email protected]"; M->Recipients->EMailAddresses = "[email protected]"; M->Priority = TIdMessagePriority(mpHighest); M->Subject = "2"; IdSMTP1->MailAgent = "Test"; IdSMTP1->AuthenticationType = atLogin; IdSMTP1->Host = "smtp.mail.ru"; IdSMTP1->UserId = "Логин"; IdSMTP1->Password = "Пароль"; if(!IdSMTP1->Connected()) IdSMTP1->Connect(); try { if(IdSMTP1->Connected()) { IdSMTP1->Send(M); } } catch(...) { } IdSMTP1->Disconnect(); delete M;
Подскажите как отпарсить текст, например у меня файл с текстом, в нём много "мусора", надо очистить этот файл, выдрать то что нужно по маске. пример бы какой-нибудь.
Вот в FAQ есть не знаю подойдет или нет Code: function MyCopy(Text, Tag1, Tag2: string): string; var i1,i2: integer; begin result := ''; if (pos(Tag1, Text) <> 0) and (pos(Tag2, Text) <> 0) then begin i1 := pos(Tag1, Text) + length(Tag1); i2 := pos(Tag2, Text) - i1; if i2 > 0 then result := copy(Text,i1,i2); end; end;
дайте плиз учебник или статьи по сетевым компонентам (Indy), или статьи на эту тему. или сорцы с большим количеством комментов. http://www.programmersclub.ru/book тут я уже был. я начинающий, так что особо не понайте всем заранее очень благодарен!))
Привет. У меня такая проблема. Пробую авторизоваться на mail.ru (там теперь https). Прикрутил к проекту IdSSLIOHandlerSocket1, прикрутил его к idhttp1. Обновил openssl в system32. но все равно появляется ошибка . Что делать?
не единожды отвечали на этот вопрос, гугли и будет тебе счастье. Вот мой ответ например. https://forum.antichat.ru/showpost.php?p=2243886&postcount=11 Да и всю темку прочти, не помешает.
