/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 1004
от 11.12.2007, 12:35

Вопрос № 112.460

Комментирую: "P.S. Если Вы надеетесь использовать такую программу для экономии трафика при попытке насобирать денег с СервисаНаКоторомРаздаютДеньгиЗаЧислаСКартинок, то спешу Вас огорчить: особой экономии трафика не получится, т.к. страницу придётся загружать целиком, да и потом объём скачанной информации провайдером всё равно округляется до КБ." Вот именно что-то типа этого я и хочу сделать для себя, пожалуйста помогите, например сайт http://wmauction.com/ или вот этот: http://www.5-kopeek.ru/act/freemoney/ хотелось бы увидеть пример. (http://wmauction.com/)Там внизу слева, как сделать это всё в программе(ввод кошелька, показ картинки и самоответ на вопрос картинки или по алгоритму и нажатие кнопки) Пожалуйста ответьте... , как это реализовать, а то я новичок и изрыл много страниц по этим темам, но не нашел нужного и не понял...Я не знаю как это реализовать какие команда ??? Прошу помощи у экспертов в этих делах. И ещё вопрос по этой теме, как вывести картинку в окно программы(вывод TBitmap умею, но картинку в интернете не знаю как, у меня есть пример сохранения картинки из интернета в *.*.jpg формате, а она не отображается с помощью Image1.Picture.LoadFromFile, помогите.

Отправлен: 05.12.2007, 16:18 Вопрос задал: Sovin Oleg Alexeewith (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: DimonSoft Здравствуйте, Sovin Oleg Alexeewith! Универсальной сделать такую программу будет очень непросто, а для конкретных сервисов - можно попытаться. В первую очередь изучите HTML-код страницы, которая содержит форму для ввода номера кошелька, числа с картинки и т.п. Найдите участок, соответствующий этой форме ввода. Определите, какую информацию нужно получать сайта для работы с этой формой, какую информацию возвращать. Советую также уделить внимание изучению вопроса о сессиях. По поводу загрузки JPEG-файла - вам уже посоветовали добавить модуль JPEG в раздел Uses. P.S. Ещё раз обратите внимание на то, что большой экономии с помощью этой программы Вы не достигнете. Поэтому советую подумать, так ли уж нужна Вам эта программа, тем более, что Вы сами сказали, что Вы - новичок.

Ответ отправил: DimonSoft (статус: 3-ий класс) Ответ отправлен: 06.12.2007, 23:03

Вопрос № 112.471

Уважаемые подскажите мне пожалуйста. У меня есть Xls фаил в котором есть данные для БД Использую ОлеОбъект для чтения данных .... MsExcel := CreateOleObject('Excel.Application'); MsExcel.Workbooks.Open(DlgForLoadFile.FileName); ... s := MsExcel.Sheets[5].Cells[i,j].Text; ... Достаю данные загружаю в базу, всё отлично. Вопрос как выгрузить созданный Excel.Application из памяти по окончанию процедуры?

Отправлен: 05.12.2007, 17:03 Вопрос задал: Дегтярев Антон Александрович (статус: 3-ий класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Сычёв Павел Алексеевич Здравствуйте, Дегтярев Антон Александрович! MsExcel.ActiveWorkbook.SaveAs (save_path); // save_path - путь сохранения //либо если ошибка то MsExel.ActiveWorkbook.Close; MsExel.Quit; //выход

Ответ отправил: Сычёв Павел Алексеевич (статус: 2-ой класс) Ответ отправлен: 05.12.2007, 17:46 Оценка за ответ: 4 Комментарий оценки: Возможно это и работает но не у меня. Выдаёт сообщение Invalid variant operation кстати frie тоже не помогает

Вопрос № 112.520

Здравствуйте, уважаемые эксперты! var ic:Ticon;jp:TJpegImage; iconindex:longint; .... ic:=ticon.Create; jp:=tjpegimage.Create; IconIndex := 0; ic.Handle:=ExtractIcon(hInstance,pansichar('C:WindowsExplorer.exe'), IconIndex); Загружется иконка размеров 32x32. Как мне: 1. Сделать размер иконки 16x16? (ic.SetSize(16,16) не хочет это делать) 2. Сделать ее в качестве JPEG картинки (загрузить в JP)?

Отправлен: 05.12.2007, 21:19 Вопрос задал: Александр Леонидович (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: PavelGM Здравствуйте, Александр Леонидович! 1. Нарисовать иконку с помощью StretchBlt в битмап нужного размера. 2. Попробуйте универсальный метод Assign, т.е. jp.Assign(ic). Этот способ должен проходить со всеми наследниками от TGraphic.

Ответ отправил: PavelGM (статус: Студент) Ответ отправлен: 06.12.2007, 00:00

Отвечает: Mishell Здравствуйте, Александр Леонидович! пример загрузки иконки в приложении Приложение: uses ShellApi; ... var Sfi:TSHFileInfo; ... FillChar(sfi,sizeof(sfi),0); SHGetFileInfo(PChar('C:WindowsExplorer.exe'),0,Sfi,SizeOf(Sfi),SHGFI_ICON or SHGFI_SMALLICON); ic.Handle:=Sfi.hIcon; ...

Ответ отправил: Mishell (статус: 8-ой класс) Ответ отправлен: 06.12.2007, 09:39

Вопрос № 112.538

Здравствуйте, уважаемые эксперты. В программе есть поле Edit из которого нужно получить числовое значение, но если введено не число программа вылетает. Как сделать чтоб в слючае невозможности преобразования строки в число выводилось соответствубщее сообщение, без завершения програмы.

Отправлен: 05.12.2007, 23:29 Вопрос задал: Виктор Малейчик (статус: Посетитель) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 6)

Отвечает: Selya Здравствуйте, Виктор Малейчик! Ещё в SysUtils есть такие замечательные функции, как TryStrToFloat и TryStrToInt (Смотри справку). Приложение: DecimalSeparator := '.'; // пропиши где-нибудь в самом начале, напр. в *.dpr ... var S: string; F: Double; begin if TryStrToFloat(S, F) then // преобразование прошло успешно else MessageDlg(Fotmat('%s не является вещественным числом',[S]), mtError, [mbOK], 0); ...

Ответ отправил: Selya (статус: 1-ый класс) Ответ отправлен: 06.12.2007, 00:32 Оценка за ответ: 5 Комментарий оценки: Спасибо. Это тоже один из вариантов решения моей проблемы, но мне больше подходит использование try...except

Отвечает: Raptor3 Здравствуйте, Виктор Малейчик! В 5 Delphi есть компонент TSpinEdit - специально для чисел предназначен, да еще с с стрелочками - которые значения уменьшают и увеличивают --------- Программист - это человек который решает проблему, о которой вы не знаете, способом который вы не понимаете

Ответ отправил: Raptor3 (статус: 2-ой класс) Ответ отправлен: 06.12.2007, 06:14 Оценка за ответ: 4 Комментарий оценки: Спасибо, знаю я о таком компоненте, но мне нужен именно Edit.

Отвечает: Владик Здравствуйте, Виктор Малейчик! Будет целесообразнее не допустить ввод не нужных символов, чем потом проверять на возможность перевода строки в число! Попробуй нижеприведенный код Приложение: procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); var vrPos, vrLength: byte; txt:string; const I: byte = 1; //I+1 = количество знаков после запятой (в данном случае - 2 знака) begin if (form1.DBGrid1.Columns.Grid.SelectedIndex=9) then //если значение меняется в поле Сумма то следить за вводом (маска ввода) begin case Key of #13: begin //что-то делаем по нажатию Ентер end; '0'..'9': ;//если цифра, то ничего не делать ',', '.': begin Key := #44; //всегда заменять точку на запятую end; #8: ; //позволить удаление знаков клавишей 'Back Space' else Key := #0; //"погасить" все остальные клавиши end; end; end;

Ответ отправил: Владик (статус: 2-ой класс) Ответ отправлен: 06.12.2007, 08:21 Оценка за ответ: 5 Комментарий оценки: Спасибо, в большинстве случаев действительно лучше сделать так как вы советуете, но у меня в поле Edit сразу находится текст, поясняющий что нужно ввести (значение потом используется для расчетов), и нужно предусмотреть случай, когда пользователь не вводя никаких значений нажмет кнопку "Расчет".

Отвечает: Сычёв Павел Алексеевич Здравствуйте, Виктор Малейчик! на обработчик (например нажатия кнопки) ставте такой код- procedure TForm1.Button1Click(Sender: TObject); var s:integer; begin try s:=strtoint(Edit1.Text); showmessage('All done!'+#13+inttostr(s)); except showmessage('Not convertable to int!'); end; end;

Ответ отправил: Сычёв Павел Алексеевич (статус: 2-ой класс) Ответ отправлен: 06.12.2007, 15:51 Оценка за ответ: 5 Комментарий оценки: Спасибо, то что мне нужно.

Отвечает: Genia007 Здравствуйте, Виктор Малейчик! Это делается просто, при помощи защищённого блока tru except var i:integer; Try i:=strtoint(edit1.text); Except Messagedlg('Введено не число',mtWarning,[mbOK],0); end;

Ответ отправил: Genia007 (статус: 2-ой класс) Ответ отправлен: 08.12.2007, 22:32 Оценка за ответ: 5 Комментарий оценки: Спасибо, но на этот вопрос уже давно ответили.

Вопрос № 112.559

Здравствуйте!!! Подскажите пожалуйста как можно вывести из ADOTable (сотоящая из трех столбцов) только 1 нужный столбец в EXCEL... Зарание блогадарю!!

Отправлен: 06.12.2007, 07:41 Вопрос задал: Макаров Денис Сергеевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Raptor3 Здравствуйте, Макаров Денис Сергеевич! Ручками - через Ole Automation Екселя - т.е. Создав новую книгу екселя или подключившись к существующей - бежать по строкам в adotable и вставлять значения нужного "столбца" в поля екселя --------- Программист - это человек который решает проблему, о которой вы не знаете, способом который вы не понимаете

Ответ отправил: Raptor3 (статус: 2-ой класс) Ответ отправлен: 06.12.2007, 07:59

Отвечает: Delph Здравствуйте, Макаров Денис Сергеевич! В приложении - пример сброса одного столбца из базы в MS Excel. В секцию uses Вашего модуля необходимо добавить ComObj, ActiveX; В моём примере компонент PeopleQuery: TADOQuery лежит на фрейме PeopleFrame, в Вашем случае пусть он лежит там, где Вам удобно. Можете также заменить его компонентом ADOTable - принципиальной разницы не будет. Настройте пример под Ваши данные (точнее под Вашу базу), выберите нужный Вам столбец, и поразвлекайтесь с экспериментированием. Думаю, комментарии помогут Вам разобраться. Приложение: procedure TWympForm.GMFile_ToExcelClick(Sender: TObject); var ServerIsRunning : boolean; Unknown : IUnknown; Result : HResult; AppProgID : String; App, Ch : Variant; Rng, Sel : Variant; i : Integer; begin // Указать программный идентификатор приложения-сервера AppProgID := 'Excel.Application'; ServerIsRunning := False; Result := GetActiveObject(ProgIDToClassID(AppProgID),nil,Unknown); if (Result = MK_E_UNAVAILABLE) then // Создать один экземпляр сервера App := CreateOleObject(AppProgID) else begin // Соединиться с уже запущенной копией сервера App := GetActiveOleObject(AppProgID); ServerIsRunning := True; end; // показать окно приложения на экране App.Visible := True; //------------------------------------------------------ // // Здесь выполняются другие действия // с объектами приложения Office App.Workbooks.Add(); i := App.Workbooks.Count; App.Workbooks[i].Activate; //Обращение к страницам App.ActiveWorkbook.WorkSheets[1].Name := 'Отчёт по базе'; //Заполнение ячеек данными App.ActiveWorkbook.WorkSheets['Отчёт по базе'].Cells[1,2].Value := 'Фамилии'; App.ActiveWorkbook.WorkSheets['Отчёт по базе'].Cells[2,2].Value := ''; i := 1; PeopleFrame.PeopleQuery.FindFirst; while i <= PeopleFrame.PeopleQuery.RecordCount do begin PeopleFrame.PeopleQuery.RecNo := i; App.ActiveWorkbook.WorkSheets[1].Cells[i+2, 2].Value := PeopleFrame.PeopleQuery.FieldByName('Family').AsString; //Форматирование ячеек App.ActiveWorkbook.WorkSheets[1].Cells[i+2, 2].Interior.Color := clYellow; App.ActiveWorkbook.WorkSheets[1].Cells[i+2, 2].Font.Color := clRed; App.ActiveWorkbook.WorkSheets[1].Cells[i+2, 2].Font.Name := 'Courier'; App.ActiveWorkbook.WorkSheets[1].Cells[i+2, 2].Font.Size := 16; App.ActiveWorkbook.WorkSheets[1].Cells[i+2, 2].Font.Bold := True; inc(i); end; //Применение буфера обмена //App.ActiveWorkbook.WorkSheets[2].Range['A1:C5'].Copy; //App.ActiveWorkbook.WorkSheets[3].Paste; //Сохраняем файл App.DisplayAlerts:=False; App.ActiveWorkBook.SaveAs('C:MyReportBook.xls'); // //------------------------------------------------------ //if not ServerIsRunning then App.Quit; App:=Unassigned; end; --------- Сомневайся во всём! Реальность часто бывает не такой, как мы о ней думаем.

Ответ отправил: Delph (статус: Студент) Ответ отправлен: 10.12.2007, 13:05

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.65 от 04.12.2007
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru