Sende tekst mellem ClientSocket og ServerSocket

Du kan også tage og sende en EOT(End Of Transmission) som er ASCII kode fire. Du kan lave en char med en ASCII kode ved hjælp af Charen := Char(04);
Du kan så bare sende indholdet af charen til serveren/klienten og den kan så modtage ved hjælp af noget i stil med:

Kode 

var
  Tmp: String;
begin
  Tmp := FåFatIStrengFraSocketHer;
  while tmp <> Char(04) do begin
    TilføjLinjenSomErLæstTilMemoen;
    Tmp := FåFatIStrengFraSockerHer;
  end;
end;

MH.

The-Freak

Livet er for kort til at kede sig.

Hvordan tilføjer jeg linjen til mit Memo?

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Bare Memoen.Lines.Add(Tmp);

MH.

The-Freak

Livet er for kort til at kede sig.

Men hvis den laver problemer med rækkefølgen så skal du nok lave noget id noget.

MH.

The-Freak

Livet er for kort til at kede sig.

Hmm bliver bare ved med at tilføje linjer uden noget tekst indtil programmet går i stå.

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Så er det din kode der er noget galdt med... Højest sandsynligt koden der sender!

MH.

The-Freak

Livet er for kort til at kede sig.

[Redigeret d. 01/02-05 18:11:10 af The-Freak]

[Redigeret d. 01/02-05 18:11:34 af The-Freak]

Ændrer lige mit spørgsmål lidt da jeg selv har fundet ud af det jeg spurgte om i første omgang.

Hvordan sender jeg "lines" fra en Memo til en memo på en anden computer? Altså så formatet beholdes og det ikke kommer ind i memo på denne måde: linje1 || linje2 osv.

Har forsøgt med SendStream og memo1.lines.loadfromstream men kan ikke få det til at virke. Og ved heller ikke om dette er dne korrekte måde at gøre det på?

Så håber lidt på at der er nogen der gider hjælpe

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Ændrer lige mit spørgsmål lidt da jeg selv har fundet ud af det jeg spurgte om i første omgang.

Hvordan sender jeg "lines" fra en Memo til en memo på en anden computer? Altså så formatet beholdes og det ikke kommer ind i memo på denne måde: linje1 || linje2 osv.

Har forsøgt med SendStream og memo1.lines.loadfromstream men kan ikke få det til at virke. Og ved heller ikke om dette er dne korrekte måde at gøre det på?

Så håber lidt på at der er nogen der gider hjælpe

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Tror det ville være letest for dig at sende en hel linje af gangen med et linjeskift i mellem hver og så "EOF" som den sidste tekst. EOF betyder End Of File, så når klienten/serveren modtager det skal den stoppe med at proppe linjer i memo'en

MH.

The-Freak

Livet er for kort til at kede sig.

Du kan også tage og sende en EOT(End Of Transmission) som er ASCII kode fire. Du kan lave en char med en ASCII kode ved hjælp af Charen := Char(04);
Du kan så bare sende indholdet af charen til serveren/klienten og den kan så modtage ved hjælp af noget i stil med:

var
  Tmp: String;
begin
  Tmp := FåFatIStrengFraSocketHer;
  while tmp <> Char(04) do begin
    TilføjLinjenSomErLæstTilMemoen;
    Tmp := FåFatIStrengFraSockerHer;
  end;
end;

MH.

The-Freak

Livet er for kort til at kede sig.

Ændrer lige mit spørgsmål lidt da jeg selv har fundet ud af det jeg spurgte om i første omgang.

Hvordan sender jeg "lines" fra en Memo til en memo på en anden computer? Altså så formatet beholdes og det ikke kommer ind i memo på denne måde: linje1 || linje2 osv.

Har forsøgt med SendStream og memo1.lines.loadfromstream men kan ikke få det til at virke. Og ved heller ikke om dette er dne korrekte måde at gøre det på?

Så håber lidt på at der er nogen der gider hjælpe

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Tror det ville være letest for dig at sende en hel linje af gangen med et linjeskift i mellem hver og så "EOF" som den sidste tekst. EOF betyder End Of File, så når klienten/serveren modtager det skal den stoppe med at proppe linjer i memo'en

MH.

The-Freak

Livet er for kort til at kede sig.

Hmm virker ikke helt da den sender hurtigere end den modtager og derfor får jeg vist nok 3 linjer på en.

Kender du andre metoder?

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Du kan også tage og sende en EOT(End Of Transmission) som er ASCII kode fire. Du kan lave en char med en ASCII kode ved hjælp af Charen := Char(04);
Du kan så bare sende indholdet af charen til serveren/klienten og den kan så modtage ved hjælp af noget i stil med:

Kode 

var
  Tmp: String;
begin
  Tmp := FåFatIStrengFraSocketHer;
  while tmp <> Char(04) do begin
    TilføjLinjenSomErLæstTilMemoen;
    Tmp := FåFatIStrengFraSockerHer;
  end;
end;

MH.

The-Freak

Livet er for kort til at kede sig.

Hvordan tilføjer jeg linjen til mit Memo?

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Du kan også tage og sende en EOT(End Of Transmission) som er ASCII kode fire. Du kan lave en char med en ASCII kode ved hjælp af Charen := Char(04);
Du kan så bare sende indholdet af charen til serveren/klienten og den kan så modtage ved hjælp af noget i stil med:

Kode 

var
  Tmp: String;
begin
  Tmp := FåFatIStrengFraSocketHer;
  while tmp <> Char(04) do begin
    TilføjLinjenSomErLæstTilMemoen;
    Tmp := FåFatIStrengFraSockerHer;
  end;
end;

MH.

The-Freak

Livet er for kort til at kede sig.

Hvordan tilføjer jeg linjen til mit Memo?

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Bare Memoen.Lines.Add(Tmp);

MH.

The-Freak

Livet er for kort til at kede sig.

Du kan også tage og sende en EOT(End Of Transmission) som er ASCII kode fire. Du kan lave en char med en ASCII kode ved hjælp af Charen := Char(04);
Du kan så bare sende indholdet af charen til serveren/klienten og den kan så modtage ved hjælp af noget i stil med:

Kode 

var
  Tmp: String;
begin
  Tmp := FåFatIStrengFraSocketHer;
  while tmp <> Char(04) do begin
    TilføjLinjenSomErLæstTilMemoen;
    Tmp := FåFatIStrengFraSockerHer;
  end;
end;

MH.

The-Freak

Livet er for kort til at kede sig.

Hvordan tilføjer jeg linjen til mit Memo?

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Bare Memoen.Lines.Add(Tmp);

MH.

The-Freak

Livet er for kort til at kede sig.

Men hvis den laver problemer med rækkefølgen så skal du nok lave noget id noget.

MH.

The-Freak

Livet er for kort til at kede sig.

Du kan også tage og sende en EOT(End Of Transmission) som er ASCII kode fire. Du kan lave en char med en ASCII kode ved hjælp af Charen := Char(04);
Du kan så bare sende indholdet af charen til serveren/klienten og den kan så modtage ved hjælp af noget i stil med:

Kode 

var
  Tmp: String;
begin
  Tmp := FåFatIStrengFraSocketHer;
  while tmp <> Char(04) do begin
    TilføjLinjenSomErLæstTilMemoen;
    Tmp := FåFatIStrengFraSockerHer;
  end;
end;

MH.

The-Freak

Livet er for kort til at kede sig.

Hvordan tilføjer jeg linjen til mit Memo?

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Bare Memoen.Lines.Add(Tmp);

MH.

The-Freak

Livet er for kort til at kede sig.

Men hvis den laver problemer med rækkefølgen så skal du nok lave noget id noget.

MH.

The-Freak

Livet er for kort til at kede sig.

Hmm bliver bare ved med at tilføje linjer uden noget tekst indtil programmet går i stå.

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Du kan også tage og sende en EOT(End Of Transmission) som er ASCII kode fire. Du kan lave en char med en ASCII kode ved hjælp af Charen := Char(04);
Du kan så bare sende indholdet af charen til serveren/klienten og den kan så modtage ved hjælp af noget i stil med:

Kode 

var
  Tmp: String;
begin
  Tmp := FåFatIStrengFraSocketHer;
  while tmp <> Char(04) do begin
    TilføjLinjenSomErLæstTilMemoen;
    Tmp := FåFatIStrengFraSockerHer;
  end;
end;

MH.

The-Freak

Livet er for kort til at kede sig.

Hvordan tilføjer jeg linjen til mit Memo?

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Bare Memoen.Lines.Add(Tmp);

MH.

The-Freak

Livet er for kort til at kede sig.

Men hvis den laver problemer med rækkefølgen så skal du nok lave noget id noget.

MH.

The-Freak

Livet er for kort til at kede sig.

Hmm bliver bare ved med at tilføje linjer uden noget tekst indtil programmet går i stå.

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Så er det din kode der er noget galdt med... Højest sandsynligt koden der sender!

MH.

The-Freak

Livet er for kort til at kede sig.

[Redigeret d. 01/02-05 18:11:10 af The-Freak]

[Redigeret d. 01/02-05 18:11:34 af The-Freak]

Ja sørme
Men nu virker det.

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------