SMTP - Datei wird nicht mehr versendet

[albert1985]

Hi,
bin erst heute auf dieses Forum gestoßen und hoffe auf Hilfe bei einem kleinem Problem.
Boardsuche habe ich schon verwendet, aber ohne sehr großen Erfolg.
Bin auch nicht sicher ob ich das hier die richtige Stelle ist für mein Problem... bitte um Nachsicht, falls was verschoben werden muss

Und zwar geht um ein Problem bezüglich SMTP ...
Ich habe Indy 10 verwendet, um eine Email samt Dateianhang zu versenden und das
funktioniert auch normalerweise ohne Probleme.

Jetzt wollte ich für ein kleines Programm mit dem
ich Dateien verwalten kann noch eine Funktion einbauen, die es ermöglicht Sicherungskopien bzw. die Datei
selbst erst ab einer bestimmten Größe zu versenden ... Da kam ein Thread in diesem Forum ins Spiel, in dem
folgender Code für die Ermittlung der Dateigröße gepostet wurde:

Code:

function GetFileSize(const szFile: String): Int64;
var
  fFile: THandle;
  wfd: TWIN32FINDDATA;
begin
  result := 0;
  if not FileExists(szFile) then exit;
  fFile := FindFirstfile(pchar(szFile),wfd);
  if fFile = INVALID_HANDLE_VALUE then exit;
  result := (wfd.nFileSizeHigh*(MAXDWORD))+wfd.nFileSizeLow;
  windows.FindClose(fFile);
end;

Diesen Code habe ich erstmal so in mein Programm eingebunden, und dann folgende Zeilen hinzugefügt:

Code:

//Dateigroeße ermitteln 
begin
  if GetFileSize('C:\dateiname') > 5000 then begin

danach steht dann der teil der fürs email versenden
zuständig ist ...

Es tritt jetzt zwar kein Fehler auf beim compilieren, aber die datei wird nicht versendet...

Die einzige Vermutung die ich habe, ist dass die gepostete Funktion auf die Datei zugreift und deswegen vllt.
kein Versenden möglich ist ... Ich bin verzweifelt und hab schon alles Mögliche ausprobiert

Vielleicht hat jemand von euch eine Idee ?? MfG