Indy: Unterschied zwischen den Versionen
Keine Bearbeitungszusammenfassung |
KKeine Bearbeitungszusammenfassung |
||
Zeile 1: | Zeile 1: | ||
OrgaMon verwendet den HTTP-Server und FTP-Client des Indy Projektes. Dieses Projekt enthält in Delphi geschriebene TCP Protokolle. Im Moment (Stand 2009) benötigen einige Units-Patches aus unterschiedlichen Gründen ... | OrgaMon verwendet den HTTP-Server und FTP-Client des Indy Projektes. Dieses Projekt enthält in Delphi geschriebene TCP Protokolle. Im Moment (Stand 2009) benötigen einige Units-Patches aus unterschiedlichen Gründen ... | ||
== svn Zugriff == | |||
md Indy | |||
svn co https://svn.atozed.com:444/svn/Indy10/trunk ./Indy | |||
# | |||
# User: Indy-Public-RO | |||
# pwd: <NULL> | |||
== Wirksamkeit der folgenden Patches == | == Wirksamkeit der folgenden Patches == |
Aktuelle Version vom 1. Januar 2015, 19:59 Uhr
OrgaMon verwendet den HTTP-Server und FTP-Client des Indy Projektes. Dieses Projekt enthält in Delphi geschriebene TCP Protokolle. Im Moment (Stand 2009) benötigen einige Units-Patches aus unterschiedlichen Gründen ...
svn Zugriff
md Indy svn co https://svn.atozed.com:444/svn/Indy10/trunk ./Indy # # User: Indy-Public-RO # pwd: <NULL>
Wirksamkeit der folgenden Patches
Im Tools->Optionen->Bibliothekspfad müssen die 3 Pfade ...
$(BDS)\source\Indy\Indy10\System
$(BDS)\source\Indy\Indy10\Core
$(BDS)\source\Indy\Indy10\Protocols
... hinzugefügt werden, sonst ist der Patch wirkungslos, da die Quelltexte sonst nicht gesehen werden.
Zeitzonen-Bug
Ist aufgetreten im Zusammenhang mit eMail Versand. Ich glaube da war das Sendedatum falsch! Dieser Bug verschwand im Delphi 2010 (Indy 10.5.5).
- \System\IdSysVCL.pas
// Patch nur notwendig bis Delphi 2009!
// Indy 10.5.5 ist OK!
class function TIdSysVCL.OffsetFromUTC: TIdDateTimeBase;
var
TimeZ : TTimeZoneInformation;
OffsetInMinutes: integer;
begin
// get Offset in Minutes from System
if (GetTimeZoneInformation(TimeZ)=2) then
OffsetInMinutes := - (TimeZ.Bias + TimeZ.DayLightBias)
else
OffsetInMinutes := - (TimeZ.Bias + TimeZ.StandardBias);
// Build the TDateTime, ensure positive Values
Result := EncodeTime(abs(OffsetInMinutes) DIV 60,abs(OffsetInMinutes) MOD 60,0,0);
// Ensure Old Sign
if (OffsetInMinutes<0) then
Result := - Result;
end;
PutRestart
bei grössen Datei-Uploads ist es immer möglich dass der Upload nicht vollständig erfolgreich durchgeführt werden kann. Diese Routine ist wiederansetzfähig und kann in einem 2. 3. Versuch die Datei vervollständigen. Erst wenn sie vollständig hochgeladen wurde erhält sie ihren richtigen Namen ...
- \Protocols\IdFTP.pas
// Im "public" Bereich der TIDFTP-Klasse
// am besten unter die anderen Put - Routinen
procedure PutRestart(const ASourceFile,ADestFile: string; const StartPosition: Int64);
// hier die Implementierung weiter unten
//
// für Delphi 2007
procedure TIdFTP.PutRestart(const ASourceFile, ADestFile: string; const StartPosition: int64);
var
LSourceStream: TIdStream;
LDestFileName : String;
begin
LDestFileName := ADestFile;
if LDestFileName = '' then
begin
LDestFileName := Sys.ExtractFileName(ASourceFile);
end;
LSourceStream := TReadFileNonExclusiveStream.Create(ASourceFile);
try
EIdFTPUploadFileNameCanNotBeEmpty.IfTrue(ADestFile = '', RSFTPFileNameCanNotBeEmpty);
LSourceStream.Position := StartPosition;
DoBeforePut(LSourceStream);
SendCmd('REST ' + Sys.IntToStr(StartPosition), [350]); {Do not localize}
InternalPut('STOR ' + ADestFile, LSourceStream, false); {Do not localize}
DoAfterPut;
finally
Sys.FreeAndNil(LSourceStream);
end;
end;
// für Delphi 2010
procedure TIdFTP.PutRestart(const ASourceFile, ADestFile: string; const StartPosition: int64);
var
LSourceStream: TStream;
LDestFileName : String;
begin
LDestFileName := ADestFile;
if LDestFileName = '' then
begin
LDestFileName := ExtractFileName(ASourceFile);
end;
LSourceStream := TIdReadFileNonExclusiveStream.Create(ASourceFile);
try
if ADestFile = '' then
raise EIdFTPUploadFileNameCanNotBeEmpty.create(RSFTPFileNameCanNotBeEmpty);
LSourceStream.Position := StartPosition;
DoBeforePut(LSourceStream);
SendCmd('REST ' + IntToStr(StartPosition), [350]); {Do not localize}
InternalPut('STOR ' + ADestFile, LSourceStream, false); {Do not localize}
DoAfterPut;
finally
FreeAndNil(LSourceStream);
end;
end;
diese eine neue Routine reicht aus! Nun folgt ein BEispiel aus der Praxis. Man beachte, dass hier die globale Variable "FTP_StartOffset" gesetzt wird, diese int64 Variable muss bei den Wartebalken-Routinen immer mit dazugezählt werden (Also bei OnBeginWork und bei OnWork).
// eine typische Anwendung eines FTP Restart sieht so aus ...
function TFormDatensicherung.doUpload(ResultFName: string):boolean;
var
FtpDestFName: string;
rSize: int64;
lSize: int64;
begin
//
result := false;
lSize := FSize(ResultFName);
SolidInit(IdFTP1);
with IdFTP1 do
begin
Host := cFTP_Host;
UserName := cFTP_UserName;
password := cFTP_Password;
try
FtpStartTime := 0;
if connected then
Quit;
connect;
// atomic.begin
FtpDestFName := ExtractFileName(ResultFName);
repeat
rSize := Size(FtpDestFName + '.$$$');
if rSize=lSize then
break;
if rSize>lSize then
raise Exception.create('FTP: remote Datei ist '+inttostr(rSize-lSize)+' Bytes grösser als die lokale');
if (rSize<1) then
begin
FTP_StartOffset := 0;
Put(ResultFName, FtpDestFName + '.$$$');
end else
begin
FTP_StartOffset := rSize;
PutRestart(ResultFName, FtpDestFName + '.$$$',rSize);
end;
until true;
rSize := Size(FtpDestFName + '.$$$');
if (lSize=rSize) then
begin
if (Size(FtpDestFName) >= 0) then
Delete(FtpDestFName);
Rename(FtpDestFName + '.$$$', FtpDestFName);
result := true;
end else
begin
if (rSize>lSize) then
raise Exception.create('FTP: remote Datei ist '+inttostr(rSize-lSize)+' Bytes grösser als die lokale')
else
raise Exception.create('FTP: remote Datei ist '+inttostr(lSize-rSize)+' Bytes kleiner als die lokale');
end;
// atomic.end
Quit;
except
on E: Exception do
begin
Log('ERROR: Ftp Upload Error: ' + e.message);
end;
end;
end;
end;
Embed Image in html-eMail content
See RFC 2557. You can insert a image inside html using something like this:
<IMG SRC="data:image/gif;base64,RAAAtuhhx4dbgYKAAA7...more data....." ALT="Larry">
Code: From: foo1atbar.net To: foo2atbar.net Subject: A simple example Mime-Version: 1.0 Content-Type: multipart/related; boundary="boundary-example"; type="text/html" --boundary-example Content-Type: text/html; charset="US-ASCII" ... text of the HTML document, which might contain a URI referencing a resource in another body part, for example through a statement such as: <IMG SRC="cid:foo4atfoo1atbar.net" ALT="IETF logo"> --boundary-example Content-Location: CID:somethingatelse ; this header is disregarded Content-ID: <foo4atfoo1atbar.net> Content-Type: IMAGE/GIF Content-Transfer-Encoding: BASE64 R0lGODlhGAGgAPEAAP/////ZRaCgoAAAACH+PUNv cHlyaWdodCAoQykgMTk5LiBVbmF1dGhvcml6ZWQgZHV wbGljYXRpb24gcHJvaGliaXRlZC4A etc... --boundary-example--