Erreur de compilation

Question

Salut à tous

quand je cherche à compiler mon projet j'ai une erreur 
method identified excepted au niveau du with .... do 

voila la procedure :

procedure envois (jpg:TJPEGImage);
var
memstream : Tmemorystream;
begin
jpg.SaveToStream(memstream);
jpg.free;
try
with Tform1.ServerSocket1
do
begin
openwritebuffer;
writestream(memstream);
closewritebuffer;
memstream.free;
end;
except
end;

Merci de votre aide

Cirec · Answer

Salut,
tu as oublier de cr&#233;e le MemoryStream :

Begin
MemStream := TMemoryStream.create;
Try
......


@+
Cirec

Francky23012301 · Answer

Salut

j'ai tjs le probleme :

procedure Ecran(jpg:TJPEGImage) ;
Var
MemStream : TMemoryStream;
jpg:=TJPEGImage;
bmp:=Tbitmap;
begin
jpg:=TJPEGImage.create;
jpg.assign(bmp);
img.free;
memstream := TMemoryStream.Create;
jpg.SaveToStream(memstream);
jpg.free;
try
with ServerSocket1.Server do
do
begin
openwritebuffer;
writestream(memstream);
closewritebuffer;
memstream.free;
end;
except
end;
end.

Merci

Cirec · Answer

with ServerSocket1.Server do
do

tu as un double do   c'est peut &#234;tre &#231;a non ou c'est juste une erreur de copie ?



@+
Ci

Francky23012301 · Answer

C'est une erreur de copie excuse moi.

Le probleme du with .. do est reglé mais pas totalement en effet les lignes suivantes posent probleme :

begin
openwritebuffer;
writestream(memstream);
closewritebuffer;
memstream.free;

undeclared identifier

Cirec · Answer

Le curseur devrait s'arreter sur la ligne m&#234;me qui pose probl&#232;me c'est le quel des 3 qui est un Identifiant non D&#233;clarer (d'apr&#232;s le compilateur)



@+
Cirec

Francky23012301 · Answer

bien les 3 (je les ai supprimé les uns apres les autres)

Cirec · Answer

ah, le ServerSocket1 c'est quoi exactement comme Composant ?
d'apr&#232;s mes premi&#232;res recherches openwritebuffer, writestream et  CloseWritebuffer ne donne rien de bien interressant



@+
Cirec

Francky23012301 · Answer

C'est un composant Tsocket

WhiteHippo · Answer

Il me semble que ces m&#233;thodes sont li&#233;es au composant Indy TIdTCPConnection.  
Pour plus de d&#233;tails, voir : 
      http://www.indyproject.org/Sockets/Docs/index.en.html
et plus pr&#233;cisemment la version 9 :
      http://www.projectindy.org/downloads/Indy-9-0-Help-WinHelp.zip

Cordialement.


<HR>
Il existe 10 cat&#233;gories de personne. Ceux qui connaissent le binaire et les autres...

cs_Delphiprog · Answer

Tu fais appel &#224; ServerSocket1 &#224; l'int&#233;rieur d'une simple proc&#233;dure et non d'une m&#233;thode de la fiche qui supporte le composant. Dans ce cas, tu dois pr&#233;ciser le nom de la fiche : 
with TForm1.ServerSocket do ...

<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

cs_Delphiprog · Answer

Un petit conseil : au lieu de faire appel au composant TMachin sur le fiche TBidule, ajoute un TServerSocket en param&#232;tre de ta proc&#233;dure Envois :
procedure Envois(jpg:TJPEGImage; ServerSocket: TServerSocket);

et dans ton code, fais directement r&#233;f&#233;rence comme ceci :
with ServerSocket.Server do ...
Ainsi, tu r&#233;duis la d&#233;pendance de ta proc&#233;dure.
<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

Erreur de compilation

11 réponses

Votre réponse

Discussions similaires