TIdMultiPartFormDataStream undeclared identifier - Работа с сетью в Delphi - Страница 2

celovec · 20.07.2007, 19:14

Брр, подскажите что еще нужно добавить что б все работало? Ошибок не выдает но и в WebBrowser1 ничего не показываеся.

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, StdCtrls, IdMultipartFormData, OleCtrls, SHDocVw, ActiveX, MSHTML;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Button2: TButton;
    WebBrowser1: TWebBrowser;
    Label1: TLabel;
    Label2: TLabel;
    Memo1: TMemo;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCount: Integer);
   private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
IdHTTP1.HandleRedirects := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ASource: TIdMultiPartFormDataStream;
begin
  ASource := TIdMultiPartFormDataStream.Create;
  ASource.AddFile('fileupload', OpenDialog1.FileName, '');
  IdHTTP1.Request.Referer := 'http://www.imageshack.us/';
  IdHTTP1.Post('http://www.imageshack.us/', ASource);
  Memo1.Text := IdHTTP1.get('http://www.imageshack.us/');
  ASource.Free;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
OpenDialog1.Execute;
end;

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
if(AWorkMode=wmWrite) then
label2.Caption := 'Sent: '+intToStr(AWorkCount)+' bytes'
else
label2.Caption := 'Received: '+intToStr(AWorkCount)+' bytes';
Application.ProcessMessages();
end;

procedure TextToWebBrowser(Text: string; var WB: TWebBrowser_V1);
var
Document: IHTMLDocument2;
V: OleVariant;
begin
// Документ необходимо создать только один раз за текущую сессию работы
if WB.Document = nil then
WB.Navigate('about:blank');
// Ожидаем создания документа и позволяем обрабатывать все сообщения
while WB.Document = nil do
Application.ProcessMessages;
Document := WB.Document as IHtmlDocument2;
// Вставляем текст (до 2Гб)
{следующие строчки внесены недавно - старый вариант функции не работал под XP}
V := VarArrayCreate([0, 0], varVariant);
V[0] := Text;
Document.Write(PSafeArray(TVarData(v).VArray));
Document.Close;
end;
end.

Квэнди · 22.07.2007, 08:47

так вы и не вызываете TextToWebBrowser

celovec · 22.07.2007, 16:07

Я уже весь красный

Квэнди, покажите пожалуйста строчку как вызывать TextToWebBrowser, и куда ее вставить.

celovec · 08.08.2007, 13:42

А вот если я пишу:

Код:

TextToWebBrowser('<html>'+Memo1.Lines+'</html>',WebBrowser1);

delphi выдает ошибку.

Насколько японял ошибка в этой строчке:

Код:

procedure TextToWebBrowser(Text: string; var WB: TWebBrowser);

Вместо string нужно что-то другое. Но что?

Квэнди · 08.08.2007, 13:57

ошибку то какую ? полный текст программы и полный текст ошибки в студию.

Квэнди · 08.08.2007, 14:03

Не обратил сразу внимание...
Memo1.Lines
не стринг
Memo1.text
стринг

22.07.2007, 08:47	#12
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	так вы и не вызываете TextToWebBrowser ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи

08.08.2007, 13:42	#14
celovec Форумчанин Регистрация: 15.06.2007 Сообщений: 182	А вот если я пишу: Код: `TextToWebBrowser('<html>'+Memo1.Lines+'</html>',WebBrowser1);` delphi выдает ошибку. Насколько японял ошибка в этой строчке: Код: `procedure TextToWebBrowser(Text: string; var WB: TWebBrowser);` Вместо string нужно что-то другое. Но что?

08.08.2007, 13:57	#15
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	ошибку то какую ? полный текст программы и полный текст ошибки в студию. ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи

08.08.2007, 14:03	#16
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	Не обратил сразу внимание... Memo1.Lines не стринг Memo1.text стринг ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

22.07.2007, 16:07	#13
celovec Форумчанин Регистрация: 15.06.2007 Сообщений: 182	Я уже весь красный Квэнди, покажите пожалуйста строчку как вызывать TextToWebBrowser, и куда ее вставить.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[Error] UnitMain.pas(40): Undeclared identifier: 'ShellExecute'	Manitu	Помощь студентам	9	07.03.2008 18:17
Expected an identifier but string found	Maugli-rus	Общие вопросы Delphi	3	23.12.2007 20:00