Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Server u Delphiju

[es] :: Pascal / Delphi / Kylix :: Server u Delphiju

[ Pregleda: 2189 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Server u Delphiju07.10.2012. u 16:16 - pre 139 meseci
Trebao bih da napisem prostu server aplikaciju u Delphi-ju, koja ce se vrteti na masini i acceptovati incoming fajlove sa remote masina. Ne treba nikakav interfejs i to, dakle server koji slusa na odredjenom portu i ceka na fajlove. Kako se ovo moze odraditi u Delphi-ju, posto nikada nisam ovako nesto radio, koje komponente trebam koristiti i da li mozda postoji neki primer na netu?
 
Odgovor na temu

krle_zr

Član broj: 96307
Poruke: 258
79.101.107.*



+7 Profil

icon Re: Server u Delphiju08.10.2012. u 06:26 - pre 139 meseci
Pogledaj Indy komponente, na njihovom sajtu imas lepe primere.
 
Odgovor na temu

salaczr

Član broj: 160654
Poruke: 103
*.dynamic.isp.telekom.rs.



+5 Profil

icon Re: Server u Delphiju08.10.2012. u 07:33 - pre 139 meseci
Takodje pogledaj i Overbyte.

http://www.overbyte.be/frame_index.html

pozdrav
 
Odgovor na temu

anon295157

Član broj: 295157
Poruke: 27
*.dynamic.isp.telekom.rs.



+4 Profil

icon Re: Server u Delphiju08.10.2012. u 18:09 - pre 139 meseci
Postavis na formu IdTCPServer komponentu. Dupli klik na Bindings->New. Izaberes IP i port pa OK. Podesi u properties Active na True. Sada klikni na IdTCPServer i u events-ima dupli klik na OnExecute:
Code:

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  MojStrim: TMemoryStream;
begin
  MojStrim := TMemoryStream.Create;
  try
    AContext.Connection.IOHandler.ReadStream(MojStrim, -1, True);
  //Radi nesto sa strimom ovde
  finally
    MojStrim.Free;
  end;
end;

Napomena: ovo cita poslati Memory stream iz npr. IDTCPClient komponente.

[Ovu poruku je menjao Rawn dana 08.10.2012. u 19:33 GMT+1]
 
Odgovor na temu

anon295157

Član broj: 295157
Poruke: 27
*.dynamic.isp.telekom.rs.



+4 Profil

icon Re: Server u Delphiju09.10.2012. u 18:48 - pre 139 meseci
Slanje fajla izgleda:
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
  MyFileName: string;
  MyStream: TMemoryStream;
begin
    MyFileName := 'C:\NekiFajl.bin';
    MyStream := TMemoryStream.Create;
    MyStream.LoadFromFile(MyFileName);
    IdTCPClient1.Host := '127.0.0.1';
    IdTCPClient1.Port := 65535;
    IdTCPClient1.Connect;
    try
      IdTCPClient1.IOHandler.LargeStream := True;
      IdTCPClient1.IOHandler.Write(MyStream, 0, True);
    finally
      MyStream.Free;
      // IdTCPClient1.IOHandler.InputBuffer.Clear;
      IdTCPClient1.Disconnect;
    end;
end;
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Server u Delphiju09.10.2012. u 21:39 - pre 139 meseci
Resio sam preko overbyte FTPServer/FTPClient komponente, hvala svima.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Server u Delphiju

[ Pregleda: 2189 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.