AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Dateien über Netzwerk verschicken

Dateien über Netzwerk verschicken

Offene Frage von "Chrissi91"
Ein Thema von Knotti2015 · begonnen am 5. Aug 2004 · letzter Beitrag vom 1. Mai 2008
Antwort Antwort
Knotti2015
(Gast)

n/a Beiträge
 
#1

Dateien über Netzwerk verschicken

  Alt 5. Aug 2004, 21:49
Hallo Leute,

habt ihr eine paar gute Codeschnipsel oder ein paar Tipps wie ich ein Programm programmieren könnte mitdem man Dateien vom Computer zum Computer schicken kann?
  Mit Zitat antworten Zitat
Kernel32.DLL
(Gast)

n/a Beiträge
 
#2

Re: Dateien über Netzwerk verschicken

  Alt 6. Aug 2004, 11:35
Hm...

Da du anscheinend Delphi 6 Personal hast, wird das wohl nix, da die I-net Komponenten fehlen.

Vielleicht funktioniert ja Bei Google suchenIndy
  Mit Zitat antworten Zitat
Knotti2015
(Gast)

n/a Beiträge
 
#3

Re: Dateien über Netzwerk verschicken

  Alt 6. Aug 2004, 12:55
ich habe nicht 6 personal sondern 7 enterprise
  Mit Zitat antworten Zitat
Knotti2015
(Gast)

n/a Beiträge
 
#4

Re: Dateien über Netzwerk verschicken

  Alt 6. Aug 2004, 12:56
Interresannt aber wie einbauen (Aussehen der FOrm und Komponenten)

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
begin
  if not OpenDialog1.Execute then exit; //erstmal besorgt man sich den Pfad der Datei, z.B. mit dem Standard Dialog TOpenDialog
  with IdTCPClient1 do
  begin
    fs := TFileStream.Create(OpenDialog1.FileName, fmOpenRead or fmShareDenyWrite); //Datei in FileStream einlesen
    Connect; //und Verbindung herstellen
    try
      OpenWriteBuffer; //stellt sicher, dass alle Daten versendet werden
      try
        WriteStream(fs, true, true, 0); {das 2. true ist wichtig!, da es bewirkt, dass die Größe des Streams mittels WriteInteger zuerst verschickt wird} 
        CloseWriteBuffer;
      except
        CancelWriteBuffer;
        raise;
      end;
    finally
      Disconnect;
      fs.Free;
    end;
  end;
end;

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
  fs: TFileStream;
  SizeOfIncomingStream: integer;
begin
  if not SaveDialog1.Execute then exit;
  fs := TFileStream.Create(SaveDialog1.Filename, fmCreate or fmShareExclusive);
  with AThread.Connection do
    try
      SizeOfIncomingStream := ReadInteger; //Größe des Streams empfangen
      ReadStream(fs, SizeOfIncomingStream); //und übergeben
    finally
      Disconnect;
      fs.Free;
    end;
  Mit Zitat antworten Zitat
Benutzerbild von XHelp
XHelp

Registriert seit: 12. Jul 2004
Ort: Duisburg
172 Beiträge
 
Delphi 6 Enterprise
 
#5

Re: Dateien über Netzwerk verschicken

  Alt 6. Aug 2004, 13:53
Mit TServerSockt TClientSocket geht das viel einfacher...
ich habe den quelltext schon mal gepostet...
Alex
Von allen Dingen die mir verloren gegangen,
hab ich am meisten an meinem Verstand gehangen
  Mit Zitat antworten Zitat
Knotti2015
(Gast)

n/a Beiträge
 
#6

Re: Dateien über Netzwerk verschicken

  Alt 6. Aug 2004, 22:42
hja aber m einen text zu schicken das hab ich shcon ich suche einen quellcode um eien datei zu verschicken
  Mit Zitat antworten Zitat
Mr Whoopee

Registriert seit: 28. Jun 2004
73 Beiträge
 
#7

Re: Dateien über Netzwerk verschicken

  Alt 5. Dez 2004, 22:37
Der Quelltext ist super, jedoch habe ich ein anderes Problem:
Ich möchte nicht, dass der Server empfängt und speichert,
sondern ich möchte, dass er Daten zum Clienten sendet.
Also auf Rechner A hört der Server und Rechenr B verbindet
sich zu Rechner A und bekommt von ihm eine Datei.

Ne Ahnung, wie das geht?


Mr Whoopee.

EDIT: Die ServerKomponente kennt die ganzen Buffer / Stream Befehle nicht:
[Fehler] Unit1.pas(36): Undefinierter Bezeichner: 'OpenWriteBuffer'
[Fehler] Unit1.pas(38): Undefinierter Bezeichner: 'WriteStream'
[Fehler] Unit1.pas(39): Undefinierter Bezeichner: 'CloseWriteBuffer'
[Fehler] Unit1.pas(41): Undefinierter Bezeichner: 'CancelWriteBuffer'
[Fehler] Unit1.pas(45): Undefinierter Bezeichner: 'Disconnect'
  Mit Zitat antworten Zitat
Chrissi91

Registriert seit: 28. Jul 2005
849 Beiträge
 
#8

Re: Dateien über Netzwerk verschicken

  Alt 1. Mai 2008, 09:41
Zitat von Mr Whoopee:
EDIT: Die ServerKomponente kennt die ganzen Buffer / Stream Befehle nicht:
[Fehler] Unit1.pas(36): Undefinierter Bezeichner: 'OpenWriteBuffer'
[Fehler] Unit1.pas(38): Undefinierter Bezeichner: 'WriteStream'
[Fehler] Unit1.pas(39): Undefinierter Bezeichner: 'CloseWriteBuffer'
[Fehler] Unit1.pas(41): Undefinierter Bezeichner: 'CancelWriteBuffer'
[Fehler] Unit1.pas(45): Undefinierter Bezeichner: 'Disconnect'
Ich hole ja ungerne Threads von 2004 aus den Tiefen der DP wieder vor, aber das war der einzige Thread der mein Problem anspricht.

Ich habe nämlich genau dasselbe Problem wie Mr Whoopee. Woran liegt es, dass mein Delphi 7 PE mit Indy 10 diese Befehle nicht kennt?

Edit: Bei mir bezieht es sich aber auf den Clienten, nicht auf den Server, wie Mr Whoopee sagte. Da hat er sich wohl versprochen.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:04 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf