Socket (HASTER)

Brug en StreamServer/Client istedet for.

er det indbygget i delphi??

NetMaster / INDY comp.

form1.ClientSocket1.Socket.SendStream

skulle du gerne kunne sende en fil med.

spectual>> oki tak hvordan ka man så modtage den og gemme den et bedstemt sted??????

Kig i hjælpen under TMemoryStream !

Jeg ville bruge:

serversocket.ReceiveBuf

Følgende er fra hjælpen:

Reads up to Count bytes from the socket connection into the Buf parameter.

function ReceiveBuf(var Buf; Count: Integer): Integer;

Description

Use ReceiveBuf to read from the socket connection in the OnSocketEvent event handler of a Windows socket object or in the OnRead or OnClientRead event handler of a socket component. ReceiveBuf returns the number of bytes actually read. If no bytes are read, ReceiveBuf returns –1.

ReceiveBuf only works in response to a read notification to a non-blocking windows socket. Blocking sockets must use a TWinSocketStream for reading. The TWinSocketStream object waits for the remote socket to be ready before transferring information.

Note:    While the ReceiveLength method can return an estimate of the size of buffer required to retrieve information from the socket, the number of bytes it returns is not necessarily accurate.

Noget i denne stil:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
buf : array [0..5000] of byte;
fil : file of byte;
br : longint;
begin;
assignfile (fil,\'modtag.dat\');rewrite (fil);
repeat;
br:=socket.receivebuf (buf,5001);
blockwrite (fil,buf,br);
until (br=0);
closefile (fil);
end;

Men det forudsætter vist at hele filen bliver sendt på een gang.

Tester lige noget:

.. returns –1.

Hmmmmm.. underligt.

Der skulle stå:

.. returns minus 1 men i stedet bliver det til

.. returns -1.

Test:
-1.

Test 2:
-1

hmm, der kan være problemer med at sende store filer med delphi\'s serversocket og clientsocket. Brug i stedet som martinlind foreslår: indy\'s tcp/ip-komponenter:
www.nevrona.com/indy

der findes et eksempel på en trivialftpserver+client, der sender store filer og gemmer dem bestemte steder - ovenikøbet viser den progress i forløbet...

Hvis nu den ene computerhar      filnavn := gemmesti
og hvis den anden computer har  filnavn := hentsti

kan i så ikke lave et eks. der der får dette til at virke

og det skal være serversocket og clientsocket fra delphi

hvorfor ?

oki det behøver ikk være server socket da jeg lige fandt ud af det ikke virker over internettet men det ska være noget i den retning da jeg har lavet et program ud fra serversocket componenterne

serversocket og clientsocket burde virke over internettet, hvis du kender ip-adressen på serveren.
indy\'s komponenter er så stor en hjælp at du hurtigt og gladeligt vil ændre *ALLE* dine gamle applikationer der bruger client/serversocket til at bruge IdTCPClient og IdTCPServer !!!
- det gjorde jeg i hvert fald :o)

oki men hvis jeg bruger dem ka du så en kode (som den jeg bad om lidt højere oppe) til begge computere?????

serversocket og clientsocket virker over internettet - har prøvet det.

jeg kunne ikk få dem til at virke da je prøvede med en ven jeg brugte port 379 ka det betyde noget????

Det kan det da muligvis. Måske bliver porten brugt til noget andet. Du kunne evt. prøve med en anden port.

hvad var fejlen?

altså: hvad var fejlmeddelelsen?

den siger at der ikke er nogen den kan tilslutte til

Er det der chat program som følger med delphi?

Prøv at skriv de 2 første cifre af den ip adresse, som prøvede at koble op til.

Prøv denne adresse :

http://users.swing.be/francois.piette/midwareuk.htm

hans implemtation kan dataset, filer hvad som helst... også så det med fuld kilde kode.

Det er nemt at bruge og det virker meget overbevisende.

ups lidt hurtigt, men i kan selv sætte de manglede fyld ord ind :0)