Indy - Versionsgeschichte

OrgaMon am 1. Januar 2015 um 18:59 Uhr

2015-01-01T18:59:47Z

← Nächstältere Version		Version vom 1. Januar 2015, 20:59 Uhr
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 ==

OrgaMon am 22. Januar 2010 um 10:09 Uhr

2010-01-22T10:09:11Z

← Nächstältere Version		Version vom 22. Januar 2010, 12:09 Uhr
Zeile 43:		Zeile 43:
	</source>		</source>

	== ~~FTP-Client kann nun REST(art)~~ ==		== 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 ...		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 ...

OrgaMon: /* FTP-Client kann nun REST(art) */

2009-12-10T12:09:24Z

FTP-Client kann nun REST(art)

← Nächstältere Version		Version vom 10. Dezember 2009, 14:09 Uhr
Zeile 88:		Zeile 88:
	begin		begin
	LDestFileName := ADestFile;		LDestFileName := ADestFile;
	if LDestFileName = `` then		if LDestFileName = '' then
	begin		begin
	LDestFileName := ExtractFileName(ASourceFile);		LDestFileName := ExtractFileName(ASourceFile);
Zeile 94:		Zeile 94:
	LSourceStream := TIdReadFileNonExclusiveStream.Create(ASourceFile);		LSourceStream := TIdReadFileNonExclusiveStream.Create(ASourceFile);
	try		try
	if ADestFile = `` then		if ADestFile = '' then
	raise EIdFTPUploadFileNameCanNotBeEmpty.create(RSFTPFileNameCanNotBeEmpty);		raise EIdFTPUploadFileNameCanNotBeEmpty.create(RSFTPFileNameCanNotBeEmpty);
	LSourceStream.Position := StartPosition;		LSourceStream.Position := StartPosition;
Zeile 109:		Zeile 109:
	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).		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).

			<source lang="Delphi">
	// eine typische Anwendung eines FTP Restart sieht so aus ...		// eine typische Anwendung eines FTP Restart sieht so aus ...
	function TFormDatensicherung.doUpload(ResultFName: string):boolean;		function TFormDatensicherung.doUpload(ResultFName: string):boolean;
Zeile 180:		Zeile 181:
	end;		end;
	end;		end;
			</source>

	== Embed Image in html-eMail content ==		== Embed Image in html-eMail content ==

OrgaMon: /* FTP-Client kann nun REST(art) */

2009-12-10T11:58:32Z

FTP-Client kann nun REST(art)

← Nächstältere Version		Version vom 10. Dezember 2009, 13:58 Uhr
Zeile 49:		Zeile 49:
	* \Protocols\IdFTP.pas		* \Protocols\IdFTP.pas

			<source lang="Delphi">

	// Im "public" Bereich der TIDFTP-Klasse		// Im "public" Bereich der TIDFTP-Klasse
Zeile 54:		Zeile 55:
	procedure PutRestart(const ASourceFile,ADestFile: string; const StartPosition: Int64);		procedure PutRestart(const ASourceFile,ADestFile: string; const StartPosition: Int64);

	~~<source lang="Delphi">~~
	// hier die Implementierung weiter unten		// hier die Implementierung weiter unten
	//		//
Zeile 80:		Zeile 80:
	end;		end;
	end;		end;
	~~</source>~~

	~~<code>~~
	// für Delphi 2010		// für Delphi 2010
	procedure TIdFTP.PutRestart(const ASourceFile, ADestFile: string; const StartPosition: int64);		procedure TIdFTP.PutRestart(const ASourceFile, ADestFile: string; const StartPosition: int64);
Zeile 107:		Zeile 105:
	end;		end;
	end;		end;
	</~~code~~>		</source>

	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).		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).

OrgaMon: /* FTP-Client kann nun REST(art) */

2009-12-10T11:58:00Z

FTP-Client kann nun REST(art)

← Nächstältere Version		Version vom 10. Dezember 2009, 13:58 Uhr
Zeile 70:		Zeile 70:
	LSourceStream := TReadFileNonExclusiveStream.Create(ASourceFile);		LSourceStream := TReadFileNonExclusiveStream.Create(ASourceFile);
	try		try
	EIdFTPUploadFileNameCanNotBeEmpty.IfTrue(ADestFile = ``, RSFTPFileNameCanNotBeEmpty);		EIdFTPUploadFileNameCanNotBeEmpty.IfTrue(ADestFile = '', RSFTPFileNameCanNotBeEmpty);
	LSourceStream.Position := StartPosition;		LSourceStream.Position := StartPosition;
	DoBeforePut(LSourceStream);		DoBeforePut(LSourceStream);

OrgaMon: /* FTP-Client kann nun REST(art) */

2009-12-10T11:57:47Z

FTP-Client kann nun REST(art)

← Nächstältere Version		Version vom 10. Dezember 2009, 13:57 Uhr
Zeile 64:		Zeile 64:
	begin		begin
	LDestFileName := ADestFile;		LDestFileName := ADestFile;
	if LDestFileName = `` then		if LDestFileName = '' then
	begin		begin
	LDestFileName := Sys.ExtractFileName(ASourceFile);		LDestFileName := Sys.ExtractFileName(ASourceFile);

OrgaMon: /* FTP-Client kann nun REST(art) */

2009-12-10T11:57:12Z

FTP-Client kann nun REST(art)

← Nächstältere Version		Version vom 10. Dezember 2009, 13:57 Uhr
Zeile 54:		Zeile 54:
	procedure PutRestart(const ASourceFile,ADestFile: string; const StartPosition: Int64);		procedure PutRestart(const ASourceFile,ADestFile: string; const StartPosition: Int64);

	<~~code~~>		<source lang="Delphi">
	// hier die Implementierung weiter unten		// hier die Implementierung weiter unten
	//		//
Zeile 80:		Zeile 80:
	end;		end;
	end;		end;
	</~~code~~>		</source>

	<code>		<code>

OrgaMon: /* Zeitzonen-Bug */

2009-12-10T11:08:36Z

Zeitzonen-Bug

← Nächstältere Version		Version vom 10. Dezember 2009, 13:08 Uhr
Zeile 19:		Zeile 19:
	* \System\IdSysVCL.pas		* \System\IdSysVCL.pas

	<source lang=delphi>		<source lang="delphi">
	// Patch nur notwendig bis Delphi 2009!		// Patch nur notwendig bis Delphi 2009!
	// Indy 10.5.5 ist OK!		// Indy 10.5.5 ist OK!

OrgaMon: /* Zeitzonen-Bug */

2009-12-10T11:07:44Z

Zeitzonen-Bug

← Nächstältere Version		Version vom 10. Dezember 2009, 13:07 Uhr
Zeile 19:		Zeile 19:
	* \System\IdSysVCL.pas		* \System\IdSysVCL.pas

			<source lang=delphi>
	// Patch nur notwendig bis Delphi 2009!		// Patch nur notwendig bis Delphi 2009!
	// Indy 10.5.5 ist OK!		// Indy 10.5.5 ist OK!
Zeile 40:		Zeile 41:
	Result := - Result;		Result := - Result;
	end;		end;
			</source>

	== FTP-Client kann nun REST(art) ==		== FTP-Client kann nun REST(art) ==

OrgaMon: /* Embed Image in html-eMail content */

2009-11-24T14:39:05Z

Embed Image in html-eMail content

← Nächstältere Version		Version vom 24. November 2009, 16:39 Uhr
Zeile 186:		Zeile 186:

	<IMG SRC="data:image/gif;base64,RAAAtuhhx4dbgYKAAA7...more data....." ALT="Larry">		<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--