واحد پشتیبانی نرم افزار

uses
xmldom,XMLIntf, msxmldom, XMLDoc,SZCodeBaseX;

procedure CreateECEXMLDocument;

var

ms:TMemoryStream;

d,ns ,afc:WideString;

XMLDoc:TXMLDocument;

aln,aln2,aln3,an,ann:IXMLNode;

n,i:integer; sl:TStringList;

ss:TStringStream;

begin
XMLDoc:=TXMLDocument.Create(Self);

XMLDoc.Active:= True;

XMLDoc.version:= ‘1.0′;

XMLDoc.Encoding:=’UTF-8′;

XMLDoc.Options:=[doNodeAutoIndent];

ann:=xmlDoc.AddChild(’Letter’,”);

ns:=’http://www.irica.com/ECE/1383-12/SendSchema’;

ann.Attributes['xmlns']:= ns;
ann.Attributes['Any']:=”;

ss:=TStringStream.Create(”);
ms:=TMemoryStream.Create;

SZEncodeBase64(’c:\MYLETTER.TIF’,ss);

فرض آنست که تصویر نامه قبلا در c:\MYLETTER.TIF ذخیره شده است//

afc:=ss.DataString;

aln:=XMLDoc.ChildNodes.FindNode(’Letter’);

an:=aln.AddChild(’Protocol’,ns);

an.Attributes['Name']:=’ECE’;

an.Attributes['Version']:=’1.01′;

an:=aln.AddChild(’Software’,ns);

an.Attributes['SoftwareDeveloper']:=’G.A.M.A TSA Co’;

an.Attributes['Version']:=’7.1′;

an.Attributes['GUID']:=’9D4E9BE2-6573-412F-9AA0-4654A4901005′;

مقدار GUID توسط شرکت سازنده
بصورت اختیاری پر می شود و در حال حاضر مقدارآن اهمیتی ندارد //

an:=aln.AddChild(’Sender’,ns);

an.Attributes['Organization']:=’اداره کل منابع طبیعی سمنان‘;

an.Attributes['Department']:=’حوزه مدیریت‘;

an.Attributes['Position']:=’مدیر کل‘;

an.Attributes['Name']:=’مهندس …..‘;

an.Attributes['Code']:=’2322‘;

an.Attributes['Any']:=”;

an:=aln.AddChild(’Receiver’,ns);

an.Attributes['Organization']:=’سازمان جنگلها و مراتع کشور‘;

an.Attributes['Department']:=’اداره کل امور اداری‘;

an.Attributes['Position']:=’مدیر کل‘;

an.Attributes['Name']:=’جناب آقای
مهندس…..‘;

an.Attributes['Code']:=’56433′;

an.Attributes['ReceiveType']:=’Origin’;

an.Attributes['Any']:=”;

an:=aln.AddChild(’OtherReceivers’,ns);

فرض بر آنست که این نامه تنها یک گیرنده داشته و لذا تنها یک تگ
OtherReceivers بدون فرزند ،
ایجاد می گردد.//

an:=aln.AddChild(’LetterNo’,ns);

an.Attributes['Any']:=”;

an.NodeValue:=’374321/21/الف‘;

an:=aln.AddChild(’LetterDateTime’,ns);

an.Attributes['ShowAs']:=’gregorian’;

an.Attributes['Any']:=”;

d:=solartochrists();

d:=StringReplace(d,’/',’-',[rfReplaceAll]);

d:=d+’T'+trim(LeftStr(TimeToStr(Now),5))+’:01′;

an.NodeValue:=d;

در خطوط فوق ابتدا تاریخ شمسی به میلادی تبدیل گردیده و سپس به فرمت
ISO 8601 تبدیل می گردد.//

an:=aln.AddChild(’RelatedLetters’,ns);

an:=aln.AddChild(’Subject’,ns);

an.NodeValue:=’تعیین تکلیف اراضی
اختلافی دامغان‘;

an.Attributes['Any']:=”;

an:=aln.AddChild(’Priority’,ns);

an.Attributes['Name']:=’عادی‘;

an.Attributes['Code']:=’1′;

an.Attributes['Any']:=”;

an:=aln.AddChild(’Classification’,ns);

an.Attributes['Name']:=’عادی‘;

an.Attributes['Code']:=’1′;

an.Attributes['Any']:=”;

an:=aln.AddChild(’Keywords’,ns);

aln2:=aln.AddChild(’Origins’,ns);

an:=aln2.AddChild(’Origin’,ns);

an.Attributes['ContentType']:=’image/tiff’;

an.Attributes['Extension']:=’tif’;

an.Attributes['Description']:=’تصویر نامه‘;

an.Attributes['Any']:=”;

an.NodeValue:=afc;

اگر نامه شامل پیوست باشد ، خطوط زیر جهت درج پیوست در پرونده بکار می رود:

aln3:=aln.AddChild(’Attachments’,ns);

if assigned(ss) then ss.Free;

ss:=TStringStream.Create(”);

SZEncodeBase64(’c:\myAttach1.TIF’,ss);

afc:=ss.DataString;

an:=aln3.AddChild(’Attachment’,ns);

an.Attributes['ContentType']:=’image/tiff’;

an.Attributes['Extension']:=’tif’;

an.Attributes['Description']:=’تصویر پیوست‘;

an.Attributes['Any']:=”;

an.NodeValue:=afc;

ms.Free;

XMLDoc.SaveToFile(’c:\ece_test.xml’);

end;

Uses

IdBaseComponent, IdComponent, IdTCPConnection,IdTCPClient, IdMessageClient,IdPOP3, IdSMTP, IdHeaderList;

procedure SendByMail(mn:smallint;af:string);

var

ex:TIdHeaderList;

IdMsgSend:TIdMessage;

Begin

IdMsgSend:=TIdMessage.Create(Self);

IdMsgSend.MessageParts.Clear;

TIdAttachment.Create(IdMsgSend.MessageParts, ‘c:\ece_test.xml’);

ex:=TIdHeaderList.Create;

ex.Values['X-ECE_SEND']:=’1.01′;

with IdMsgSend do

begin

Body.Text:=’تصویر نامه به پیوست می باشد‘;

From.Text:=’info@tsa-co.ir’;

Recipients.EMailAddresses:=’ece@frw.ir’;

Subject:=’تعیین تکلیف اراضی اختلافی دامغان‘;

Priority:=TIdMessagePriority(mpHighest);

Headers.Add(’X-ECE_SEND: 1.01′);

SetExtraHeaders(ex);

end;

SMTP.UserID := ‘dp.semnan@frw.org.ir’;

SMTP.Password := ‘mypassword’;

SMTP.Host := ‘ mail.frw.org.ir’;

SMTP.Port := 25;

if not SMTP.Connected then SMTP.Connect;

SMTP.Send(IdMsgSend);

SMTP.Disconnect;

end;

….

….

….

Authentication-Results: mx.google.com; spf=neutral (google.com: 87.247.177.2 is neither permitted nor denied by best guess record for domain of dp.khuzestan@frw.org.ir) smtp.mail=dp.khuzestan@frw.org.ir
Message-Id: <4b672eba.1102be0a.1dd1.68a5SMTPIN_ADDED@mx.google.com>
Received: from UnknownHost [78.39.193.152] by mail.nedahosting.net with SMTP;
Mon, 1 Feb 2010 23:13:45 +0330
From: dp.khuzestan@frw.org.ir
Subject: Re:ECE 1388/11/12
To: gama@gmail.com
Content-Type: multipart/mixed; boundary=”=_NextPart_2rfkindysadvnqw3nerasdf”;
MIME-Version: 1.0
Date: Mon, 1 Feb 2010 23:12:20 +0330
X-Priority: 1
X-Library: Indy 8.0.25
X-ECE_SEND: 1.01
X-Cyberoam-Version: 9.6.0.62
X-Cyberoam-smtpxy-version: 1.0.7.0
X-Cyberoam-AV-Status: Clean
X-Cyberoam-Proto: SMTP
X-Cyberoam-AV-Policy: None
X-Cyberoam-AS-Policy: Global Spam Policy

….

….

….

This is a multi-part message in MIME format