|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.08.2008, 16:43 | #1 |
Форумчанин
Регистрация: 04.08.2008
Сообщений: 154
|
Показать защитную картинку с кодом
ну вот сделал прогу вот код
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,Jpeg, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls, ExtCtrls, ScktComp, IdCookieManager; type TForm1 = class(TForm) Image1: TImage; Button1: TButton; IdHTTP1: TIdHTTP; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var f:tfilestream; Im: TJpegImage; begin Im := TJpegImage.Create; f:=tfilestream.Create('c:\temp.jpeg ',fmcreate); IdHTTP1.get('http://filgab.ex6.ru/engine/modules/antibot.php',f); image1.Picture.LoadFromFile('c:\tem p.jpeg'); end; end. ну чё та не показывает картинку |
27.08.2008, 17:28 | #2 |
Форумчанин
Регистрация: 20.06.2008
Сообщений: 168
|
А закрыть файл после того, как забрал из сети не пробовал? Он у тебя открытый остается и может из-за этого не загружаться.
|
27.08.2008, 23:15 | #3 |
Форумчанин
Регистрация: 04.08.2008
Сообщений: 154
|
нет не пробовал но мне так не кажеться потому что когда выходишь из проги то файл сохраняеться правда не открываеться изображение
|
27.08.2008, 23:58 | #4 |
Форумчанин
Регистрация: 04.08.2008
Сообщений: 154
|
Урраа
разобрался помогла вставка f.Free; |
28.08.2008, 10:16 | #5 |
Форумчанин
Регистрация: 20.06.2008
Сообщений: 168
|
Это называется закрыть файл перед использованием. Он просто был занят объектом.
|
28.08.2008, 11:01 | #6 |
Форумчанин
Регистрация: 04.08.2008
Сообщений: 154
|
Flenov спасибо!!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
показать кол-во и сумму приходов | Romuald | Microsoft Office Excel | 10 | 02.09.2008 14:17 |
Как показать только не повторяющиеся записи | А. Долматов | Microsoft Office Access | 4 | 20.05.2008 14:29 |
Показать элемент по указанной позиции. | Fuckin_Princess | Помощь студентам | 8 | 07.12.2007 12:07 |
Как показать уведомения? | UnD)eaD)Snake | Win Api | 6 | 16.08.2007 23:23 |
Показать свойства | шолku | Общие вопросы Delphi | 2 | 28.12.2006 09:56 |