Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
maksmkv
2 / 2 / 1
Регистрация: 29.08.2012
Сообщений: 111
1

Lazarus+Indy10

14.01.2015, 23:46. Просмотров 289. Ответов 0
Метки нет (Все метки)

Всем привет. Установил Indy10 в lazarus. Нашел код в интернете для открытия файлов формата .eml(письма)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, IdMessage, FileUtil, Forms, Controls, Graphics, Dialogs,
  StdCtrls, IdObjs, IdAttachment, IdAttachmentMemory;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    IdMessage1: TIdMessage;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure IdMessage1CreateAttachment(const AMsg: TIdMessage;
      const AHeaders: TIdStrings; var AAttachment: TIdAttachment);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 
  idMessage1.CharSet:='UTF-8';
  IdMessage1.LoadFromFile('c:\1\Test.eml');
  Edit1.text:=IdMessage1.Subject;//тема
  Edit2.text:=IdMessage1.Body.Text;//тело
  Edit3.text:=IdMessage1.From.Text;//кто
  Edit4.text:=IdMessage1.ReceiptRecipient.Text;//кому
  TIdAttachmentMemory(IdMessage1.MessageParts.Items[I]).SaveToFile(SaveDialog1.FileName); //сохраняем файл
                                       // "I" ето порядковий номер файла
end;
 
procedure TForm1.IdMessage1CreateAttachment(const AMsg: TIdMessage;
  const AHeaders: TIdStrings; var AAttachment: TIdAttachment);
begin
 
end;
 
end.
Код успешно компилируется, но при запуске ошибка: "Проект Project1.exe вызвал класс исключения 'External: ?' по адресу 7C812FD3. Что не так???
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.01.2015, 23:46
Ответы с готовыми решениями:

Ошибка Indy10 и Lazarus (Unix)
Всем доброго времени суток. Столкнулся с такой проблемой: моя программа...

Lazarus Indy10 TIdHttp ошибка
Установил в Lazarus Indy10, надо получить код страницы. Поставил TIdhttp: ...

Установка ZEOS в Lazarus, работа с PostgressSQL в Lazarus
Не получается никак установить компонент ZEOS в Lazarus открываю пакет с...

Ошибка при установке Indy10-5274
При установке Indy10-5274 возникает вот такая ошибка: lazarus.pp(1,1) Fatal:...

В чём разница между Lazarus Linux i386 RPM и Lazarus Linux i386 DEB
Здравствуйте. Установил в виртуалке Ubuntu и хочу "покрутить" в ней Lazarus....

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.01.2015, 23:46

lazarus
31. Транслятор сообщает … a. в окне кода об первой встретившейся синтаксической...

Lazarus
Лазали в инете и поняли: программирование в Lazarus выучить нам только после...

Lazarus
Разработать программу в среде программирования Lazarus. Для каждой задачи...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru